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PREFACE 

Junction  Input-Generator  (JIG),  A NASTRAN  Pre-Processor;  Theoretical 
Development,  User's  Manual  and  Program  Listing.  This  is  the  fourth 
of  a series  of  Project  LIMIT  Reports;  the  first  two  were  on  the 
Planform  Input  Generator  (PING)  and  the  third  the  Body  Input 
Generator  (BING) . 

The  work  reported  herein  is  being  carried  out  under  task 

No.  SEA-18452/SF32-322-501 , Lightweight  Missile  Structure,  sponsored 

by  the  Naval  Sea  Systems  Command. 
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FOREWORD 

The  object  of  Project  LIMIT  (Lightweight  Missile  Technology) 
is  to  develop  and  provide  computer  analysis  methods  for  missile 
structures.  Together  with  the  use  of  lightweight  materials,  fabri- 
cation techniques  and  related  technology,  the  design  of  a missile 
with  optimized  structural  elements  can  be  made  practical  from  a com- 
putational time  and  expense  standpoint.  The  merits  of  these 
techniques  will  permit  different  missile  structural  concepts  to  be 
both  thoroughly  and  repeatedly  analyzed  in  the  development  of  an 
efficient  weapon  system. 

This  work  develops  the  third  pre-processor  code  to  increase 
the  utility  of  the  NASTRAN  program  for  the  design  and  analysis  of 
massive  junctions  in  missile  body  structure.  The  first  two  pre- 
processors which  can  be  employed  for  lifting  surfaces  and  shell  bodies 
have  been  completed  and  reported. 
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PHASE  - I PING 

Planform  input  generator  (PING) 
Program  develops  finite  element 
models  for  missile  lifting  sur- 
faces and  punches  NASTRAN  bulk 
data  cards. 

July  71 
to 

June  73 

Opera- 

tional 

NOLTR  73-199 

NOLTR  73-228  • 

PHASE  - II  BING 

Body  input  generator  (BING)  P''c- 
gram  develops  finite  element 
models  for  axi-symmetr ical  shell 
body  and  punches  NASTRAN  bulk 
data  cards. 

July  73 
to 

June  75 

Opera- 

tional 

NSWe/WOL/TR  75-9 

PHASE  - III  A MASSIVE  JOINT 
JUNCTIONS 

Program  develops  finite  element 
models  for  massive  joint  junc- 
tions and  punches  NASTRAN  bulk 
data  cards. 
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to 

Aug  77 
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tional 
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INTERACTION 

PHASE  -me  AERO-DYNAMIC 

HEATING  INTERACTION 
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Develop- 
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Programs  automatically  calculate 
air  loads  and  temperatures  due 
to  aerodynamic  heating  and  punch 
NASTRAN  bulk  data  cards. 

Aug  77 
to 

June  81 

! 

Future 
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Chapter  I 
INTRODUCTION 

The  object  of  Project  LIMIT  (Lightweight  Missile  Technology) , 
sponsored  by  the  Naval  Sea  Systems  Command,  is  to  provide  modern 
structural  analysis  methods  together  with  lightweight  materials, 
fabrication  techniques  and  related  technology  whereby  a missile  may 
be  designed  economically  and  efficiently  with  weight-optimized 
structural  elements.  The  current  phase  of  the  work  aims  to  promote 
finite  element  techniques  in  the  design  and  analysis  of  missile  struc- 
ture. The  great  speed  and  precision  of  these  techniques  would  permit 
a missile  to  be  thoroughly  and  repeatedly  analyzed  and  thus  provide 
a more  efficient  weapon  system. 

NASTRAN,  a general  purpose  finite  element  program  for  structural 
analysis,  was  developed  by  NASA  and  is  gaining  wide  acceptance  through 
the  technical  community  especially  among  Naval  Laboratories.  It 
is  versatile  and  applies  to  a large  class  of  static  and  dynamic 
problems : 

a.  Static  response  to  concentrated  and  distributed  loads, 
thermal  expansion  and  enforced  deformation  . 

b.  Dynamic  response  to  transient  loads  and  random  excitation. 

c.  Determination  of  real  and  complex  eigen  values  for  use 
in  vibration  analysis,  dynamic  stability  analysis  and 
elastic  stability  analysis. 
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However,  to  prepare  NASTRAN  input  for  a complicated  problem  is 
a large  effort  in  itself.  It  includes  the  layout  of  grid  mesh; 

calculation  of  grid  point  locations;  element  properties  and  their  ; 

( 
V 

connections  to  grid  points;  preparation  of  input  sheets;  and,  finally,  \ 

punching  of  input  cards.  All  this  work  is  extremely  time  consuming  ' 

and  requires  a team  of  specialists.  Furthermore,  possible  occurrences 

! 

of  human  errors  together  with  unavoidable  redesign  cycles  would  make 
the  analysis  formidable.  To  remedy  these  difficulties,  special  input 

[generation  programs  are  being  developed  to  automatically  generate 

finite  element  models  and  the  associated  NASTRAN  input  for  missile 
L structures.  This  work  will  be  completed  in  three  phases.  In  the  ; 

i initial  phase  a pre-processor  has  been  completed  for  lifting  surfaces; 

the  work  was  published  in  NOLTR  73-199,  entitled  "Planform  Input 
Generator  (PING) , a NASTRAN  Pre-processor  for  Lifting  Surfaces  - 
Theoretical  Development,  User's  Manual,  and  Program  Listing"  December 
1973.  The  second  phase  has  concluded  with  a report  entitled  "Missile  \ 

Body  Input  Generator  (BING),  A NASTRAN  Pre-processor,  Theoretical  i 

Development,  User's  Manual,  and  Program  Listing".  This  report  was 
published  as  a NSWC/WOL/TR  75-9  in  March  1975. 

The  third  phase,  concerned  with  massive  bodies  and  junctions 
in  missile  structure,  is  documented  in  this  report.  These  three  i 

ore-processors  together  can  supply  most  of  the  bulk  data  cards  for  ■ 

. a NASTRAN  analysis  of  a complete  missile  structure. 

- This  Junction  Input  Generator,  designated  as  JIG,  can  rapidly 


develop  a finite  element  model  and  NASTRAN  bulk  data  cards  for  any 
massive  body  such  as  a joint  or  nozzle  for  elaborate  structural  analysis. 
Chapter  2 discusses  the  background  of  the  program  and  its  applications. 
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Chapter  3 presents  the  user's  manual.  Appendix  A lists  the  complete 
program.  Appendix  B presents  example  problems  with  complete  input 
procedure  and  NASTRAN  bulk  data  listings. 
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Chapter  2 

MISSILE  JUNCTION  INPUT  GENERATOR 

JIG,  written  in  FORTRAN,  can  generate  the  finite  element  model 
for  a massive  shell  junction  and  most  of  the  bulk  data  cards  required 
for  NASTRAN  application.  Figure  1 shows  the  functions  of  JIG  and 
its  relation  with  NASTRAN. 

This  code  has  the  option  of  punching  out  various  combinations 
of  bulk  data  cards,  listed  in  Table  1,  to  avoid  accumulating  thousands 
of  unwanted  cards.  This  feature  is  especially  feasible  in  the  design  - 
redesign  cycles  where  most  of  the  NASTRAN  input  remain  unchanged. 

Table  1 lists  punch  options  for  the  connection  and  grid  cards,. 
These  include: 

a.  Triangular  Plate  Element  (CTRIA2)  only. 

b.  Triangular  Ring  Element  (CTRIARG)  only. 

c.  Triangular  Ring  and  Plate  Elements  (CTRIA2  and  CTRIARG) . 

d.  Polyhedron  Elements  (CWEDGE)  only. 

e.  Grid  cards  punched  or  not  punched. 

The  three  dimensional  axisymmetric  triangular  ring  element 
(CTRIARG)  and  the  solid  polyhedron  element  (CWEDGE)  are  employed  here 
as  the  basic  finite  elements  for  the  anlyses  of  massive  body  and 
joint  structure.  The  inclusion  of  CWEDGE  is  provided  for  the 
capability  of  analyzing  non-axisymmetr ic  bodies  and  also  the 
compatibility  of  this  element  with  other  NASTRAN  elements. 
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ELEMENTS 
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MACTD AM 

INPUT  CARDS 

FIG.  1 FUNCTIONS  OF  JIG/NASTRAN 
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Table  1 


JIG  Output  Punch  Options 


Connection  Cards 


Type(s)  of  Element  Cards 
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Using  JIG,  only  a typical  configuration  in  R-Z  plane  will  be 
required  for  the  creation  of  the  three-dimensional  finite  element 
model.  JIG  will  calculate  and  punch  the  GRID  and/or  the  connection 
cards  for  the  entire  structure.  The  same  subroutine  developed  in 
PING  is  adopted  here  for  computing  the  mesh  points  and  the  boundary 
points. 

Control  points  along  the  boundaries  are  input  to  define  the 
configuration,  then  additional  boundary  points  are  calculated  by 
the  program.  Finally  the  internal  mesh  points  are  calculated  by 
the  method  of  iteration.  Figures  2 and  3 show  the  control  points 
A,B,C,D,E  and  F and  the  mesh  points. 

For  a tapering  mesh  such  as  Figures  2 and  3 the  transition 
technique  from  PING  can  be  applied  to  great  advantage.  This  technique 
reduces  the  number  of  mesh  points  in  the  narrower  sections  thus 
yielding  a finite  Element  model  with  better  proportioned  elements. 
Figure  3 shows  the  mesh  of  such  a finite  element  model  and  an  example 
can  be  found  in  Appendix  B. 

2.1  AXIALLY  SYMMETRICAL  JOINTS  AND  NOZZLES 

Most  massive  junctions  and  nozzles  are  axially  symmetrical 
structures.  Hence  the  axisymmetric  triangular  ring  element  (CTRIARG) 
can  be  advantageously  employed,  despite  the  incompatibility  of  this 
element  with  other  NASTRAN  finite  elements.  For  the  convenience 
of  modeling  a nozzle  type  configuration,  curved  boundary  between 
two  boundary  points  has  been  incorporated  in  this  program.  The 
following  equation 
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R = Rq  + AZ  + BZ^  + CZ^  + D cos(EZ  + F)  (1) 

can  be  fitted  to  many  practical  shapes.  In  Figure  4 is  shown  a cross 
section  resembling  a nozzle.  The  curve  between  a and  e has  the 
parameters  R^  = 4.5;  A = -.375;  B = -.15  and  C = .025  while  that 
between  e and  d has  Rq  = 5;  A = -1.35;  B = .18  and  C = -.006.  The 
dots  between  a and  d are  plotted  from  an  equation  having  R^  = 4.5; 

A = .5676;  B = -.1;  C = .0033;  D = 3.2517;  E - tt/10  and  F = .5it. 

It  can  be  seen  that  the  dots  follow  closely  to  the  curves  therefore 
is  an  excellent  alternative.  Of  course,  if  greater  accuracy  is 
desired,  more  control  points  may  be  employed  between  a and  d. 

The  polyhedron  element  can  also  be  used  in  the  analysis  of 
axisymmetric  problems.  However,  the  simpler  ring  element  should  always 
be  used  whenever  possible.  The  polyhedron  element  which  can  be  used 
with  other  elements  such  as  the  plate  element,  etc.  is  provided  for 
the  analysis  of  a junction  model  consisting  of  shell  segments. 

However,  only  a sector  of  the  structure  is  needed  to  be  analyzed 
with  the  application  of  axisymmetric  constraints.  To  create  the 
finite  element  model  for  the  sector,  a typical  meridian  configuration 
must  be  developed.  JIG  will  then  calculate  and  punch  the  GRID  and/or 
connection  cards  for  the  entire  sector. 

2.2  BAYONET  JOINTS  - AXIALLY  UNSYMMETRICAL  CASE 

Only  the  polyhedron  elements  can  be  employed  in  an  axially 
unsymmetr ical  model.  Take,  for  example,  a bayonet  joint  shown  in 
Figure  5.  This  joint  has  two  typical  meridian  cross  sections  as 
seen  in  Sections  A-A  and  B-B.  However  Section  A-A  actually  contains 
the  configuration  shown  in  Section  B-B,  therefore,  only  Section  A-A 
is  required  in  the  development  of  the  model.  Figure  6 shows  part 


r 
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• R=4.5+  0.5676Z-  0.1Z^+  0.0033Z^  - 3.2517  SIN  JT/IO  Z 

(a«;Z<d) 

FIG.  4 NOZZLE  CROSS  SECTION,  CURVED  BOUNDARY 
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of  the  bayonet  joint  which  will  be  developed  by  JIG.  The  mesh  is 
divided  into  seven  subregions  in  the  Z direction.  Each  subregion  | 

requires  the  same  types  of  input,  therefore,  the  input  cards  become 
increasingly  bulky  with  more  subregions.  JIG  will  generate  the  sector 
that  Section  A-A  applies.  For  the  next  sector  that  Section  B-B 
applies  JIG  simply  ignores  those  elements,  which  do  not  belong,  i.e., 
elements  from  J = 4 and  above  in  subregions  1,2,  and  3.  This  cycle 
will  be  repeated  until  the  joint  is  developed  completely. 

A demonstrative  example  can  be  found  in  Appendix  B. 

2.3  THREADED  JOINTS 

A threaded  joint  has  a large  number  of  teeth  therefore  a large 
number  of  subregions.  To  avoid  inputting  repeated  data,  a special 
provision  to  simplify  input  for  repeated  subregions  is  implemented 
so  that  the  subsequent  teeth  can  be  generated  from  the  input  of  a 
typical  subregion  as  shown  in  Figure  7.  This  is  done  by  a trans- 
formation process,  therefore,  every  repeated  subregion  has  an 
identical  mesh  with  unique  grid  points,  "^hen  either  the  ring  elements 
or  the  polyhedron  elements  will  be  connected  to  the  grid  points  to 
form  a finite  element  model. 

2.4  JIG  AND  BING  COUPLING 

When  the  polyhedron  elements  are  employed  in  the  model,  other 
NASTRAN  elements  can  also  be  used  in  the  same  model.  The  common 
grid  points  that  connect  these  two  different  elements  must  be  con- 
strained to  achieve  compatibility  conditions.  In  missile  structure 
the  most  common  combination  is  the  triaxial  polyhedron  elements  to- 
gether with  the  plate  elements  which  are  developed  on  thin  plate 
theory.  Take  a shell-joint  junction  as  an  example,  the  finite  element 
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[ model  has  polyhedron  elements  in  the  thick  part  and  plate  elements 

in  the  shell  areas. 

I i 

’ In  Figure  8 is  shown  such  a model,  the  plate  elements 

[ representing  the  shell  connect  the  polyhedron  elements  at  a radius  i 

i J 

[ where  grid  point  M is  located.  U and  L are  the  grid  points  above  | 

i and  below  M respectively.  All  three  points  are  located  on  a junction  1 

i'  1 

; line  along  the  intersection  of  0 = 9^^  and  Z = planes.  The  grid  ; 

I point  M connecting  a plate  element  has  five  degrees  of  freedom  while  i 

U and  L have  only  three  degrees  of  freedom  as  shown  in  the  figure.  ’ 

To  insure  shell-joint  interactions  the  following  constraints  must 
be  imposed. 


^1 

= 

Ml 

(2) 

^2 

= 

M2 

+ 

(Ru  - 

^M^Mg 

(3) 

= 

M3 

+ 

<«M  - 

Ru)M5 

(4) 

^1 

= 

Ml 

(5) 

^2 

= 

M2 

+ 

- 

^M^Mg 

(6) 

^3 

= 

M3 

+ 

- 

Rl)M5 

(7) 

Equation  (2)  through  (7)  can  be  input  by  means  of  Multipoint 
Constraints  Cards  (MFC) . For  every  common  grid  point  M JIG  will  auto- 

i 

matically  set  up  the  six  equations  and  punch  out  the  MFC  cards.  The  ^ 

grid  points  to  be  used  as  M,  L and  U are  JIG  input  and  are  specified 
by  their  (I,  J)  location. 

i 

There  are  three  options  which  can  be  selected  by  the  user; 
namely:  left  coupling,  right  coupling  or  couplings  on  both  sides 

i 

of  the  massive  structure.  In  any  case,  BING  must  be  employed  to  ; 

1 

generate  the  shell  part  first,  then  JIG  can  proceed  to  create  the  i 

joint  part  and  the  coupling.  The  grid  point  numbers  of  M where  j 
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couplings  are  desired  must  be  input  into  the  JIG  and  can  be  obtained 
from  the  BING  model. 

2.5  OTHER  USEFUL  FEATURES 

Developed  in  BING  are  the  following  features  which  make  possible 
the  development  of  a complex  finite  element  model  for  NASTRAN  analy- 
sis. These  capabilities  are  also  retained  in  JIG  for  the  same  reason. 

1.  TRANSITION  OF  MESH  SIZE 

This  feature  has  been  shown  in  Figure  3 in  which  transitions 
are  carried  out  in  the  J direction.  The  I and  J directions  must 
be  oriented  as  indicated  in  the  f igure, i . e. , I is  directed  along  Z 
axis  and  J is  directed  in  the  R axis. 

2.  DISPLACEMENT  OF  POINTS  AND  LINES 

Any  points  and/or  lines  can  be  placed  at  prescribed  locations 
by  means  of  this  feature. 

3.  PRESCRIPTION  OF  GRID  POINT  NUMBER 

To  facilitate  the  joining  of  two  structural  components  and 
eliminate  the  otherwise  required  Multipoint  Constraints  Cards  (MPC) 
at  the  common  grid  points,  this  preprocessor  has  the  provision  for 
inputting  pre-assigned  numbers  for  any  grid  points. 

4.  CONTROL  OF  NUMBERING  GRID  POINTS,  FINITE  ELEMENTS  AND 

CONTINUATION  CARDS 

This  provision  avoids  duplication  numbers  in  grid  points, 
finite  elements  and  continuation  cards,  especially  with  separate 
JIG  runs.  NASTRAN  will  reject  any  such  duplicated  numbers  in  the 
bulk  data  deck.  To  provide  this  capability  the  beginning  numbers 
of  these  cards  must  be  input  and  the  last  number  used  are  tabulated 
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Chapter  3 
USER'S  MANUAL 

JIG,  written  in  FORTRAN,  can  generate  the  finite  element  model 
of  a joint  type  junction  and  most  of  the  bulk  data  cards  required 
for  NASTRAN  application.  This  code  is  capable  of  generating  an 
axisymmetric  triangular  cross  section  ring  element  (CTRIAG)  or  a 
three-dimensional  solid,  with  three  quadrilateral  faces  and  two 
opposing  triangular  faces,  (CWEDGE) . The  triangular  membrane  and 
bending  element  {CTRIA2)  can  also  be  generated  for  a two-dimensional 
problem.  Table  2 list  the  different  element  punch  options  available 
This  section  presents  card  formats  in  sequential  order  which 
must  be  followed  exactly  when  preparing  the  JIG  input.  There  are 
18  card  types  altogether,  however,  the  number  of  card  types  to  be 
used  will  vary  depending  on  the  type  of  problem  encountered.  The 
user  should  start  from  card  type  1 and  proceed  through  19.  Any  card 
types  to  be  omitted  or  put  in  more  than  once  will  be  identified  in 
the  instruction. 
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3-1  FORMAT  OF  JIG  CARD  TYPES 
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CARD  TYPE  2 - PROGRAM  CONTROL  CARD 
FORMAT  (815) 

Col. 


1-5 

6-10 

11-15 

16-20 

21-25 

26-30 

31-35 

36-40 

NST 

NGS 

NES 

NPOP 

MID 

NGP 

IDELT 

NSECT 

DEFINITIONS 

NST  = number  of  section  types 

NGS  = starting  grid  point  number 

NES  = starting  element  number 

NPOP  = element  punch  option 

= 0 punches  CTR1A2  cards  only 
= 1 punches  CTRIARG  cards  only 
= 2 punches  CTR1A2  and  CTRIARG 
= 3 punches  CWEDGE  only 
MID  = material  identification  number 

NGP  = grid  card  punch  option 

= 0 grid  cards  punched 
= 1 grid  cards  not  punched 
IDELT  = 0 axisymmetric  ring  element 
= 1 3-D  solid  (wedge)  element 
NSECT  = number  of  different  cross-sections 
(for  solid  wedge  only) 
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CARD  TYPE  4 - REPEATED  SECTION  DATA 
FORMAT  (7F10.4) 

Col. 


1-10 

11-20 

21-30 

31-40 

41-50 

DELTZ(l) 

DELTZ (I+l) 

DELTZ (1+2) 

DELTZ (1+3) 

DELTZ (1+4) 

Col. 

51-60  61-70 

DELTZ(I+5)  DELTZ(I+6) 

DEFINITION 

DELTZ(I)  = length  of  repeated  section  (Z-value) 
(for  NT(I)  = 1,  DELTZ(I)  = 0.0) 
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CARD  TYPE  5 - THETA  REGION  DATA 
NOTE;  If  IDELT  = 0,  do  not  input 
FORMAT  (315) 

Col. 


1-5 

6-10 

11-15 

NDT 

ICLOSE 

DELGP 

DEFINITIONS 

NDT  = number  of  different  theta  regions 
ICLOSE  = 0 full  360°  segment 

= 1 segment  less  than  360° 

DELGP  = element  number  to  be  added  to  orginal 
number  for  each  theta  section 
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CARD  TYPE  6 - THETA  REGION  DATA 
NOTE;  If  IDELT  = 0,  do  not  input 
FORMAT  (5(I5,F10.4) ) 

Col. 


1-5 

6-15 

16-20 

21-30 

• • • 

61-65 

66-75 

KK(1) 

THETA (1) 

KK{2) 

THETA (2) 

KK(N} 

THETA (N) 

DEFINITIONS 

KK(N)  = integer  used  to  determine  A0, 


used  in  the  following  equation 
Ae  = THETA (1+1)  - THETA (I) 
KK(I+1)  - KK(I) 


THETA (N)  = theta  value  at  KK(N) 


Example  NDT  = 2,  ICLOSE  = 1 

KK(1)  = 1,  THETA(l) 


0.0 


o 


4,  THETA(2)  = 90.0° 


180.0° 
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CARD  TYPE  7 - VARIABLE  CROSS-SECTION  DATA 
NOTE;  Input  only  if  IDELT  = 1 
FORMAT  (7F10.4) 

Col. 


1-10 

11-20 

• • • 

61-70 

BETA(l) 

BETA (2) 

BETA(N) 

DEFINITION 

BETA(N)  - angles  where  change  of  cross-section 


occurs,  (include  initial  and  final 
angles  of  the  joint) 

NOTE;  For  constant  cross-section  (NSECT  = 1)  only  input  initial 
and  final  angle  of  joint. 
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CARD  TYPE  8 - VARIABLE  CROSS-SECTION  DATA 
NOTE;  Input  only  if  IDELT  = 1. 

FORMAT  (815) 

Col. 


B 

6-10 

11-15 

16-20 

• • • 

31-35 

36-40 

JB(1) 

JE(1) 

JB(2) 

JE(2) 

JB(N) 

JE(N) 

DEFINITIONS 

JB(N)  - minimum  J-value  of  mesh  to  be  included  in  subsector  N 
JE(N)  - maximum  J-value  of  mesh  to  be  included  in  subsector  N 
NOTE;  For  constant  cross-section  (NSECT  = 1) , 

only  input  JMIN  and  JMAX  for  JB(1)  and  JE(1). 
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CARD  TYPE  9 - SECTION  DATA 

NOTE;  Repeat  card  types  9 thru  15  NST  times. 
FORMAT  (1215) 

Col. 


1-5 

6-10 

11-15 

16-20 

21-25 

26-30 

31-35 

36-40 

41-45 

NEBP 

JMIN 

JMAX 

MINI 

MAXI 

NHO 

NPO 

NTR 

JMINJ 

Col. 


46-50 

51-55 

56-60 

JMAXJ 

NPS 

MPC 

DEFINITIONS 

NEBP  = number  of  external  boundary  points  to  be  input  for  section 

JMIN  = minimum  J-value  of  section 

JMAX  = maximum  J-value  of  section 

MINI  = mimimum  I-value  of  section 

MAXI  = maximum  I-value  of  section 

NHO  = number  of  prescribed  internal  lines  and  points  (i.e.,  for 
one  line  and  one  point,  NHO  = 2) 

NPO  = tooth  code  = 0 for  flat  tooth  (or  no  tooth) 

= 1 for  pointed  tooth 
NTR  = number  of  transitions  in  section 
JMINJ  = minimum  J-value  of  junction  between  sections 
JMAXJ  = maximum  J-value  of  junction  between  sections 
NOTE:  If  NST  = 1 and  NT(1)  = 1,  JMINJ  = JMAXJ  = 0 

NPS  = permanent  single  point  constraint  associrted  with  grid  points 
(any  of  the  digits  1-6  with  no  imbedded  blanks) 

MPC  = 0 MPC  equations  not  punched 

= 1 MPC  equations  to  be  punched 
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CARD  TYPE  10  - MPC  DATA 

NOTE;  if  MPC  = 0 , do  not  input. 

FORMAT  (15) 

Col. 

DEFINITION 

NBO  = number  of  boundaries  MPC  equations  are  to  be  punched  for 
(=  1 or  2) 
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CARD  TYPE  11  - MPC  DATA 

NOTE;  Input  NBO  cards  (do  not  input  if  MPC 
FORMAT  (915) 

C 


on 

6-10 

11-15 

16-20 

21-25 

26-30 

31-35 

36-40 

41-45 

IU(M) 

JU(M) 

MI  (M) 

JM(M) 

IL(M) 

LJ(M) 

LS(M) 

ICONST(M) 

JCONST (M) 

DEFINITIONS 

IU(M),  JU(M)  = I,  J Location  of  upper  grid  point 
in  MPC  equation 

MI (M) , JM(M)  = I,  J Location  of  middle  grid  point 
in  MPC  equation 

IL(M) , LJ (M)  = I,  J Location  of  lower  grid  point 

in  MPC  equation 

LS (M)  = Repeated  section  number  for  which 

the  MPC  equations  are  to  be  written 
(i.e.,  first  or  last;  = 1 if  section 
is  not  repeated) 

JCONST(M)  I ~ constant  I or  J for  line  of  points  given 
above  (only  one  gets  a value,  the  other 
is 
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CARD  TYPE  12  - TOOTH  POINT  DATA 
NOTE;  Do  not  input  if  NPO  = 0 
FORMAT  (15,  2F10.5) 

Col. 


1-5 

6-15 

16-25 

JP 

ZP 

XP 

DEFINITIONS 

JP  = J- value  of  tooth  point  (=JMAX  + 1) 
ZP  = z-value  of  tooth  point 
XP  = X-  or  R-value  of  tooth  point 
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CARD  TYPE  13  - BOUNDARY  POINTS 
NOTE;  Input  (NEBP  + l)/2  cards 
FORMAT  (215,  2F10.5,  215,  2F10.5) 
Col. 


1-5 

6-10 

11-20 

21-30 

31-35 

36-40 

41-45 

46-55 

56-65 

66-70 

11 

J1 

Z1 

XI 

ICl 

12 

J2 

Z2 

X2 

IC2 

DEFINITIONS 


In  = value  of  I-line  for  point  n 
Jn  = value  of  J-line  for  point  n 
Zn  = Z coordinate  of  point  n 
Xn  = X or  R coordinate  of  point  n 

Id) 

jQ2]~  ^ straight  line  to  next  point 

= 2 curved  line  to  next  point;  card  type 
llA  required 
Order  of  card  type  llA 


If 

ICl  = 2 

card  type  llA 

follows 

If 

IC2  = 2 

card  type  llA 

follows  next 

card  type  11 

If 

IC2  = 2 

in  the  last  card  type  11, 

card  type  llA  follows 
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CARD  TYPE  14  - CURVED  BOUNDARY  EQUATION 
FORMAT  (7F10.4) 

Col. 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

RO 

A 

B 

C 

D 

E 

F 

DEFINITIONS 


RO 


A 

B 

C 

D 

E 

F 


= Coefficients  in  the  boundary  expression 
for  X(I,J)  (or  R(I,J) ) 

X(I,J)  = RO  + A * Z(I,J)  + B * Z(I,J) 

+ C * Z(I,J)^  + D * cos(E  * Z(I,J)  + F) 


NOTE;  Actual  Z used  in  above  expression 
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CARD  TYPE  15  - PRESCRIBED  LINES  AND  POINTS  DATA 
NOTE;  Do  not  input  if  NHO  = 0 
FORMAT  (1015) 

Col. 


1-5 

6-10 

• • • 

46-50 

NPH(l) 

NPH(2) 

NPH(N) 

DEFINITIONS 

NPH(N)  = 1 for  a fixed  point 
= 2 for  a fixed  line 
(N  = 1,  NHO) 
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CARD  TYPE  16  - LCX:ATI0N  OF  PRESCRIBED  POINTS  AND  LINES 

NOTE;  Input  NHO  cards 

FORMAT  (215,  2F10.5,  415,  2F10.5) 

Col. 


m 

6-10 

11-20 

21-30 

31-35 

36-40 

41-45 

46-50 

51-60 

61-70 

11 



J1 

Z1 

XI 

NGl 

IPO 

12 

J2 

Z2 

X2 

DEFINITIONS 

In  = value  of  I-line  for  point  n 
Jn  = value  of  J-line  for  point  n 
Zn  = Z coordinate  of  point  n 
Xn  = X or  R coordinate  of  point  n 
NGl  = fixed  grid  point  number 

= 0 for  fixed  Z and  X location  only 
> 0 for  grid  point  numbers  to  go  in 

increasing  order  (only  for  a line) 
< 0 for  grid  point  numbers  to  go  in 
decreasing  order  (only  for  a line) 
IPO  = grid  card  punch  option 
= 0 grid  card  not  punched 
= 1 grid  card  punched 
NOTE;  For  fixed  grid  point  numbers  only 
set  X < 0.0 
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Jl 


CARD  TYPE  17  - TRANSITION  DATA 
NOTE;  Do  not  input  if  NTR  = 0 
FORMAT  (15) 

Col. 

1-5 

INTN 

DEFINITION 

INTN  = a constant  for  the  initial  J-line  to  be 
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CARD  TYPE  18  - TRANSITION  DATA 
NOTE;  Input  NTR  cards 
FORMAT  (215) 

Col. 


1-5 

6-10 

JT(N) 

NTNT(N) 

DEFINITIONS 

JT(N)  = J-value  at  the  end  of  the  Nth  transition 

NTNT(N)=  constant  for  JT(N)  line  to  be  determined 

by  the  following  equation; 

2NTNT(I)  . j t 

^ -^N  + 1 -^N 

Ijj  = I-value  of  the  Nth  transition  line 
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CARD  TYPE  19  - MPC  CONSTRAINT  DATA 
NOTE;  Input  only  if  MPC  = 1 
FORMAT  (1015)  Input  NBO  cards. 

Col. 

1-5  6-10  11-15  16-20  21-25  26-30  31-35  36-40  41-45  46-50 


CZ  CN 


CNM  COM 


CTM  CBM 


DEFINITIONS 


^ ^CZ  = Permanent  single  point  constraints  for  0=0° 

° M \ CN  = Permanent  single  point  constraints  for  0=90° 

TJ  c J Q 

^'q\  CO  = Permanent  single  point  constraints  for  0=180 

a I 

-o  1 CT  = Permanent  single  point  constraints  for  0=270° 
o.-<  / 

04  u I 

D = Permanent  single  point  constraints  for  all  other  O's 

^CZM  = Permanent  single  point  constraints  for  0=0° 

“ I CNM  = Permanent  single  point  constraints  for  0=90° 

o/  COM  = Permanent  single  point  constraints  for  0=180° 

>-•  I o 

!§  / CTM  = Permanent  single  point  constraints  for  0=270 

•H  / 

® °''^CBM  = Permanent  single  point  constraints  for  all  other  0's 


H9/50 


F 
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APPENDIX  A 
JIG  FORTRAN  LISTING 
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PPOGRAH  JIGIINPUT,0UTPUT,TAPF5=INPUT,TftPE6»0UrPUT,PUNCHI 
C •••  JUNCTION  INPUT  GFNEPATOP  PROGRAM  (JIGI 

DIMENSION  X(3C,T0) > Z ( 30 , 30 ) ,NT ( 1 0 ) ,NG( 30 » 30) « OELTZ ( 10 ) « CODE ( 30, 30)  BUG 

DIMENSION  NCE (30,30),KSKIP(30,30) , KK ( 1 0) , THET A( 1 0) , JB t 10 ) , JE < 10) 

I, BETA(10) ,IMIN(30) ,IMAX (30) ,TITLF(13) 

COMMON  X, Z, NG, CODE, NGF, KSXIP, NSECT, JB,JE, BET A, theta, ININ, IMAX, UMAX 

II,  JHINl 

COMMON  HPC,lUt7) ,JU(?),IMtZ),JM(2) ,IL(2) , JL ( 2) , ICON,LS (2 ) 

COMMON  ICONST(2) ,JCONST(2) 

INTEGER  CODE 
ICON  = 1 

PRINT  99  BUG 

MPITF(6,800) 

HRITFt6,800) 

MRITF  (6,801) 

HRITFJ6,802) 

MRITE(6,801) 

write  (6,800) 

WRITE(6,80')) 

MRI''E(6,803) 

RF AD (5,500) (TITLF(I),I=1,13) 

WRITE  (6,501)  (TITi.E( I)  ,1  = 1,13) 

READ  (5,302)  NST ,NGS, NES, NPOP  ,MI C ,NGP, lOELT, NSECT 
WRITE (6,502)  NST.NGS, NES, NPOP, NIC, NGP,IOELT, NSECT 


1=1  BUG 

7 RFAD(5,30?)  NT(II,NT(I»l),NT(I*2),NT(I*3),NT(U4),NT(I*5),NT(I*6)  BUG 

REAO(5,30<.)  0ELTZ(I),0ELTZ(I^1),CELTZ{I*2),0ELTZ(I*3) ,OELTZ(I*A) , BUG 

10FLTZ(I*5( ,0FLTZ(I*6)  BUG 

l=I»7  BUG 

if(i.lt.nst)  go  to  t bug 


00  10  J=1,NST 

10  MRITF(6,503)  J,NT(J),J, OELTZ(J) 
IFdOECT.FO.O)  GO  TO  3 
RFAD(5,A11)  NOT, ICLOSE,OELGP 
write  (6,504)  N0T,ICL0SE,0FLGR 
IF=M0T*1 

RFAD(5,410)  (KK(J),THETA(J) ,J=1,IF) 

‘ DO  11  L=1,IF 

11  WRITF(6,505)  L,K<(LI,L,THFTA(L) 

HAD  = KK(NOT  ♦ 1 ) -1 

NS  sNSECT  ♦ 1 

REAr)(5,304)  (eFTA(LM),LH  = l,NS) 

00  12  M=1,NS 

12  WOITF(6,506)  *),9ETA(M) 

REAO(5,302) (J9(LN) ,JF(LN) ,LN=1, NSECT) 
DO  13  N=l, NSECT 

13  MRITF(6,507)  N,J8(N),N, JE(N) 


3 1=1  BUG 
PRINT  99 

DO  700  L=1,NST  BUG 
NN=NT{I)  BUG 
DO  600  LL=1,NN  BUG 


CALL  TOOTH ( JM IN, JMAX, MINI, MAXI, NPC,NTR,JMINJ, UMAX J,0ELTZ,LL,L,NPS, 
1IDELT,MA0) 

CALL  PUNCHR (J min, JHAX, MINI, MAXI, NPO,NT,NTR,L,JMINJ,JM AX J,NGS 
1,LL, NES, NPOP, MIC.NGP, lOEL T , NOT, ICLOSE ,OELGP, KK,  (PS) 


600  CONTINUE  BUG 

700  I=I^1  BUG 

99  FORMAT(lHl)  BUG 

302  F0RMAT(8I5) 

304  RORMAT(7F10.4)  BUG 


410  FORMAT(5<I5,Fin.4)) 

411  FORMAT(3I5) 

500  F0RMAT(13A6) 
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'01  F0RMAT(15X,13A6,//» 

507  'ORHAT(10X,6HNST  = , 15, /t 1 0 X, 6 HNGS  = , 15 , /, 1 0 X, oHNES  = ,I5,/,10X,7 
IHNPOP  s ,I5,/,10X,6HMIO  = ,I5,/,10X,6HNGP  * , 15 , /, lOX , BHIDEL T = ,I 
?5,/,10X,BHNSFCT  a ,I5» 

503  FORMAT(10X,3HNT J ,I7,4H)  = , 15 , 5X , 6HOELTZ ( , 17 , 4H)  = ,F10.4) 

504  FORMAT<10X,6HNOX  = , 15, /, 1 0 X, 9HICLOSE  = , 15, X ,1 0 X, 8H0ELGP  = ,15) 

505  FORHAT(10X,3HKK(,I7,4H)  = , 15 , 5X ,6HTHETA ( , 1 7 , 4H)  = ,F10.4) 

506  FORMAT(10X,5HBrTA(,I7,4H)  = ,F10.4) 

507  FORMAT(10X,3HJ9( ,I7,4H)  = , 15 , 5X , 3HJE (, 17 ,4H ) = ,15) 

800  FORMAT (35X,50H 

801  F0RMAT(35X,7H**,46X,7H**) 

807  FORMATt35X,7H**,3X,40HJUNCTION  INPUT  GENERATOR  PROGRAM  IJIG), 

13X,9H**) 

803  FORMATC/////) 

FNO  BUG 

SUBROUTINE  TOOTH  (JHIN , UMAX  , MINI,  )'A XI  , NPO, NTR  , JM INJ , UMAX  J , DELTZ,tL  , 
lL,NPS,IOELT,MAO) 

DIMENSION  X(30,30),Z<30,30) ,CODE ( 30 , 30) , NPH( 1 0) , IMIN(30) ,IMAX(30)  TOOTH 
DIMENSION  NJ7(30),N7(30)  ,NG(30,30) ,DELTZ (10) ,NGF(30,30) ,KSKIPt30,  TOOTH 
130) ,JB(10) ,JE(10),BFTA(10) ,THETA(10) 

COMMON  X, 7,NG,C0nF,NGF,KSXIP,NSFCT,JB,JE,BETA,THETA,IMIN,IMAX, UMAX 


11, JMINl 

COMMON  MPC,IU(7) ,JU(7) ,MI (7) , JM(?) ,IL(7) , LJ ( 7) , ICON, LS ( 7 ) 

COMMON  IC0NST(?),JC0NST(7) 

C •••  THIS  SUBROUTINE  CALCULATES  THE  GRID  POINT  COORDINATES  OF  ANY  TOOTH 

C SECTION.  TOOTH 

integer  CODE  TOOTH 

IF(LL.GT.l)  GO  TO  800  TOOTH 

READ  (5,10)  NE6«>,JMIN,  JMAX,MINI,('AXI,NHO,NPO,NTR,JMINJ,  JMAXJ,NPS, 

IMPC 

C*****  INITIALIZE  TOOTH 

J9AN  = UMAX  - JMIN  +1  TOOTH 

IRAN  = MAXI  - mini  *1  TOOTH 

IRNN  = IRAN  ♦ 1 TOOTH 

JRNN  = JRAN  ♦ 1 TOOTH 

DO  70  J = 1,JRNN  TOOTH 

DO  15  I = l.IRNN  TOOTH 

X(I,J)  = 0.  TOOTH 

Z(I,J)  a 0.  TOOTH 

NG(I,J)=0  TOOTH 

NGF(I,J)a0  TOOTH 

KSKIP(I,J)=0  TOOTH 

15  CODE(I,J)  a 0 TOOTH 

IMIN(J)  a 1000  TOOTH 

70  IHAX(J)  a 0 TOOTH 

DO  71  1=1,30  TOOTH 

NJ7(I)aO  TOOTH 

N7(I)=0  TOOTH 

71  CONTINUE  TOOTH 


IF(MPC.EQ.O)  GO  TO  700 
RFA0(5,4q)  NBO 
DO  701  M=1,NBC 

701  READ  (5,49)  IU(M) ,JU(M),MI ( M) , JM (M) , I L (M) ,L J(M) , LS (M) , ICONST (M) , 


IJCONST(M) 

read  external  BOUNDARY  NODAL  POINT  DATA  TOOTH 

700  IF(NPO.EO.O)  GO  TO  4 

REA0(5,76)  JP,ZP,XP  TOOTH 

COOE(l,JP)=l  TOOTH 

Z(l,JR)aZP  TOOTH 

X(1,JP)=XP  TOOTH 

4 NCC  a 0 TOOTH 

NB  a (NEBP»1)  / 7 TOOTH 

NBC  a 2 • nB  TOOTH 

DO  17  N a 1,NB  TOOTH 
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REA0(5,?5)  II , Jl,71,XltICl,I2,J?,Z2, X2tIC2 

C00F(  IlfJl)  = 1 TOOTH 

C00F(I2,J2)  = 1 TOOTH 

2(11, Jl)  = 21  TOOTH 

X(I1,J1)  = XI  TOOTH 

2(12, J2)  = 22  TOOTH 

X(I2,J2)  = X2  TOOTH 

TF(N.EQ.1»  r.O  TO  5 TOOTH 

IF(N.EO.NB)  GO  TO  6 TOOTH 

309  IFdFC.EQ.l)  GO  TO  7 

311  RFAO(5,302)  P 0 , A ,B,C, 0, F, F 

7 NSTEPS  = HAXO (IA3S(I1-IF) ,IABS(J1-JF)»  TOOTH 

ISTFP  = (11-IF)  /NSTEPS  TOOTH 

JSTFP  = (Jl-JF)  /NSTFPS  tooth 

00  = NSTFPS  TOOTH 

0Z=(Zl-ZF)/00  TOOTH 

OX  = (Xl-XFl/00  TOOTH 

00  8 NST  = 1, NSTEPS  TOOTH 

1 = IF  ♦ ISTFP  ’NST  ‘ TOOTH 

J = JF  ♦ JSTEP  *NST  ' TOOTH 

IF(COOE(I,J).FQ.l)  GO  TO  8 

2(1, J)=Z( I-ISTFP,J-JSTEP)  *02  TOOTH 

IF(IFC.EQ.2)  GO  TO  312  % 

X(I,J)  = X(I-rSTFP, J-JSTEP)  ♦ OX  TOOTH 

GO  TO  313 

312  X(I,J)  = PO  ♦ A*Z(I,J)  ♦ B*2(I,J)*Z( I,J)  ♦ C*Z(I,JJ*2(I,J)»Z(I,J) 

1 ♦ D*COS(F*Z( I, J)  ♦ FI 

313  COOF(I,J)  = 1 

8 


CONTINUE 

TOOTH 

IFC  = IC2 

IF(NCC.EQ.l)  GO  TO  17 

TOOTH 

ZF  = Z2 

TOOTH 

XF  = X2 

TOOTH 

IF  = 12 

TOOTH 

JF  = J2 

TOOTH 

GO  TO  12 

TOOTH 

XU  = XI 

TOOTH 

ZL  = 71 

TOOTH 

XF  = X2 

TOOTH 

ZF  = 22 

TOOTH 

LI  = 11 

TOOTH 

JU  = J1 

TOOTH 

IF  = 12 

TOOTH 

JF  = J2 

TOOTH 

IFC  = IC2 

GO  "^0  12 

TOOTH 

IF(NBC.EQ.NFBP  ) GO  TO  9 

TOOTH 

NSTFPS  = HAXO (I«8S(LI-I1)  ,IABS(JL-J1)  > 

TOOTH 

ISTFP  = (LI-Il)  /NSTEPS 

TOOTH 

JSTFP  = (JU-JU  /NSTFPS 

TOOTH 

00  = NSTEPS 

TOOTH 

02=(2L-21)/0P 

TOOTH 

OX  = (XL  -XI)  /OO 

TOOTH 

00  14  NST  a 1, NSTEPS 

TOOTH 

I = 11  ♦ ISTFP  *NST 

TOOTH 

J = J1  ♦ JSTFF  aNST 

TOOTH 

IF(COOE(I,J).FQ.l)  GO  TO  14 

2(1, J)»2(I-ISTFP, J-JSTEP)  ♦ 02 

TOOTH 

IFdCl.FQ.?)  GO  TO  315 

X(I,J)  a X(I-ISTEP,J-JSTF“)  aOX 

TOOTH 

GO  TO  316 

315  X(I,J)  a PO  ♦ A»Z(I,JI  ♦ B*Z(I,J)*Z( I,J)  ♦ C*Z(I,J»*Z(I,J)*Z(I,J) 
1 ♦ n*C0S(F*2( I,J)  ♦ F» 

316  COOF(I,J)  = 1 
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t 


14  CONTINUP  TOOTH 

NCC  * 1 TOOTH 

GO  TO  309 

9 NSTPPS  = MAXO (I4BS(LI-I2>  ) TOOTH 

ISTPP  = (LI-T2>  /NSTPPS  TOOTH 

JSTPP  = tJL-J?)  /NSTPOS  TOOTH 

00  = NSTPPS  TOOTH 

IF(IC?.PQ.2»  KPAO(5,302»  P 0 , A ,B, C. Dt P.P 

07= (ZL-Z2) /OO  TOOTH 

OX  =IXL-X2I  /DO  tooth 

00  11  NST  = 1, NSTPPS  TOOTH 

1 = I?  ♦ ISTPP  ’NST  TOOTH 

J = J2  ♦ JSTPP  ’NST  TOOTH 

iP(Conp(r,j).po.i)  GO  to  ii 

Z(I,J»=Z<  I-ISTPP,  J-JSTPP)  07  TOOTH 

IF<IC?.PQ.?)  GO  TO  305 

X(I,J)  = X(I-ISTFP,J-JSTFP»  ♦ OX  TOOTH 

GO  TO  306 

305  X(I,J)  = PO  ♦ 4*Z(I,J)  ♦ B*Z(I,J)*Z(I,J»  ♦ C* Z( I , J) *2 ( I , J) *2 ( I, J ) 

1 ♦ 0*C0S(P*2(I,J>  ♦ F) 

306  COOPdfJ)  = 1 TOOTH 

11  CONTINUP  TOOTH 

GO  TO  309 

12  IF(IC1.EQ.2)  PPAO(5,302»  PO , A ,B ,C i 0, E, F 
NSTPPS  = HAXO  HA9S(I2-I1)  ,IABS(J2-JH  I 

ISTPP  = (12-111  /NSTPPS  TOOTH 

JSTPP  = (J2-J1)  /NSTPPS  TOOTH 

00  = NSTPPS  TOOTH 

02=(2?-Zl) /OD  TOOTH 

OX  = (X2-X1)  /on  TOOTH 

00  10  NST  = 1, NSTPPS  TOOTH 

1 = II  «■  ISTPP  *NST  tooth 

J = J1  ♦ JSTPP  *NST  TOOTH 

IF(C00P(1,J).F0.1»  GO  TO  18 

2(1. J)=Z( I-ISTPP, J-JSTPP)  ♦ 02  TOOTH 

IPdCl.EQ.Z)  GO  TO  303 

X(I,J>  = X(I-ISTFP, J-JSTPP)  ♦ OX  TOOTH 

GO  TO  304 

303  X(I,J)  = PO  ♦ A*Z(I,J)  ♦ B*2(I,J)*Z(I, J)  ♦ C*Z( I , J) *2 ( I , J) *2 ( I, J ) 

1 ♦ 0*C0S(E*7( I,J)  ♦ P) 

304  COOEdtJ)  = 1 tooth 

10  CONTINUE  tooth 

17  CONTINUP  tooth 

pfTjQ  internal  boundary  nodal  point  data  tooth 

IF(NHO.EO.O)  GO  TO  53  TOOTH 

READ  (5,49)  ( NPH (N) ,N=1 , NHO)  TOOTH 

00  52  N = 1,NH0  TOOTH 

NCC  = 0 TOOTH 

NB  = (NPH(N»  +1)  /2  TOOTH 

NBC  = 2*NP  TOOTH 

00  50  N9  = l.NB  TOOTH 

NG1=0  TOOTH 

RPA0(5,27)  II ,J1,71,X1,NG1,IP0,I2,J2,Z2,X2  TOOTH 

IP(NPH(N) .EQ.?)  GO  TO  22  TOOTH 

IFINGI.NP.O)  GO  TO  101  TOOTH 

GO  TO  08  TOOTH 

101  NGdl,Jl)=NGl  TOOTH 

NGFdl,Jl)=NGl  TOOTH 

IP(IPO.EO.O)  KSKIP(I1,J1)  = -1 

GO  TO  08  TOOTH 

22  IF(NGl.LT.n)  GO  TO  102  TOOTH 

IP(NG1.E0.H  GO  TO  08  TOOTH 

IF(I2.PQ.I1)  GO  TO  72  TOOTH 

00  71  M=I1,I2  TOOTH 
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NGtM, Jl)=NGl 
NGF»*<tJl)  =1?  ♦ NGl  -II 
KSKIP(M,J1)  = I?-I1 

IF(TPO.EQ.O)  KGKIPCH, J1)=-1*KSKIP(M,  Jl) 
IPHOELT.EO.l ) NGl  = NGl  ♦ MAO 

71  NG1=NG1^1 
GO  TO  88 

72  00  73  M=J1,J2 
NG(I1,M)=NG1 
NGF(ri,M»=J2  ♦ MGl  - J1 
KSKIP(I1,M)=J2-J1 

iFdPo.EO.oi  K$KrP(ri,M»=-i*Ks<rprii,Mi 
IFJIOELT.EQ.l ) NGl  = NGl  ♦ MAO 

73  NG1=NG1*1 
GO  TO  88 

102  IF(I2.E0.I1»  GO  TO  104 
00  105  M=I1,I? 

NG«M,J1)  = (-1)*NG1 
NGF(M,J1) =I2-I1*NG1 
KSKIP(M,J1)  = 12-11 

IF(IPO.EQ.O)  KSKIP<M, J1)=-1*KSKIP(M, Jl) 
IF(IOFLT.EO.I)  NGl  = NGl  ♦ MAO 

105  NG1=NG1*1 
GO  TO  88 

104  00  106  M=J1,J2 

NG(I1,M)  = «-l)*NGl 
NGE 'I1,M) =J2-J1 ♦NGl 
KSKIP(I1,M)=J2-J1 

IFITPO.EO.Ol  KSKIP1I1,M)=-1*ICSK1P(I1  ,M) 
IFtlOELT.EQ.l)  NGl  = NGl  ♦ MAO 

106  NG1=NG141 

88  IF<Xl.LT.0.0t  GO  TO  50 
IFlNB.EQ.ll  GO  TO  30 
GO  TO  35 

30  IF(NBC.EQ.NPH(NI » GO  TO  32 
COOF(Il,Jl)  = 2 
7(11, J1)=Z1 
X(I1,J1)  = XI 
GO  TO  50 

32  IF(C00F(I1,J1) .EO.l)  GO  TO  80 
COOEtll.Jl)  = 2 

80  IFtC0DF(I2,J2) .50.1)  GO  TO  81 
C00E<I2,J2>  = 2 

81  CONTINUE 
7(11, Jl)  = 71 
X(I1,J1)  = XI 
7(12, J2)  = Z? 

X(I2,J2)  = X2 

NSTFPS  = MAXO (IABS(I2-I1) ,IA8S(J2-J1)  ) 

ISTFP  = (12-11)  /NSTFOS 

JSTFP  = (J2-J1)  /NSTFPS 

00  = NSTFPS 

07=(7?-Z1)/00 

OX  = (X2-X1)  /on 

00  T3  nST  = 1, NSTFPS 

1 * II  ♦ ISTEP  ’NST 
J = Jl  ♦ JSTFO  *NST 
Z(I,J)=Z(I-ISTF‘5,J-JSTEP)  ♦ OZ 
X(I,J)  = X(I-ISTEP,J-JSTEP)  ♦ OX 
IF(COnE(I,J).En.l)  GO  TO  33 
COOE(I,J)  = 2 

33  CONTINUE 
GO  TO  50 

35  IF(NB.60.1)  GO  tq  36 
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IF(N9.E0. Nq)  GO  TO  37 

38  NSTFPS  = waX0liaBS(Il-IF»,IA8S(Jl-JF»  ) 
ISTFP  = (Il-IF)  /NSTpoS 

JSTFP  = (Jt-JF)  /NSTFPS 
00  = NSTFPS 
07=(Zl-ZF)/00 
OX  = (Xl-XF)  /0r> 

00  39  NST  = 1 , NSTFPS 

1 = IF  ♦ISTFP  ’NST 
J = JF  ♦ JSTFP  *NST 

7(1, J»=Z( I-ISTFP,J-JSTEP»  ♦ OZ 
X(I,J)  = X(I-ISTFP,J- JSTFP)  tOX 
IF(COOF(I,J).FQ.l)  GO  TO  39 
COOFd.J)  = ? 

39  CONTINUE 
IF<NCC.E0.1)  GO  TO  50 
ZF=7? 

XF  = X? 

IF  = 12 
JF  = J2 
GO  TO  32 

36  XL  = XI 
7L  = 71 
XF  = X2 
ZF  = 7? 

LI  = II 
JL  = J1 
IF  = 12 
JF  = J2 
GO  TO  3? 

37  IF(NBC.EQ.NPH (N)  ) GO  TO  40 

NSTFPS  = MAXO (IfiaS(LI-Il) ,IABS«JL-J1)  ) 

ISTFP  = (LI-Il)  /nSTFPS 

JST<^P  = (JL-Jl)  /NSTFPS 

00  = NSTFPS 

0Z=(ZL-Z1) /OO 

OX  = (XL-Xl)  /DO 

00  42  NST  = 1, NSTFPS 

1 = II  ♦ ISTFP  *NST 
J a J1  ♦ JSTFP  ’NST 
Z(I,J»=Z(I-ISTFP,J-JSTEP)  ♦ OZ 
X(I,J)  = X(I-ISTFP,J- JSTFP)  ♦ OX 
IF(COOE(I,J). FO.l)  GO  TO  42 
COOEdjJ)  = 2 

42  CONTINUE 
NCC  = 1 
GO  TO  38 

40  NSTFPS  = MAXO dA9S(LI-I2) ,IABS(JL-J2)  ) 
ISTFP  = (LI-12)  /NSTFPS 

JSTFP  = (JL-J2)  /NSTFPS 
00  = NSTEPS 
0Z=(ZL-Z2) /OO 
OX  = (XL-X2)  /OO 

00  44  NST  = 1, NSTFPS 

1 = 12  ♦ ISTFP  *NST 
J = J2  ♦ JSTFP  *NST 
Z(I,J)=Z(I-ISTFP,J-JSTFP)  ♦ OZ 
Xd,J)  a X(I-ISTFP,J-JSTFP)  ♦ OX 
IF(COOE(I,J).FQ.l)  GO  TO  44 
COOFd,J)  r 2 

44  CONTINUE 
GO  TO  38 
50  continue 
52  continue 
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CALCULATP  COORDINATES  0^  INTERICP  POINTS 
5S  IE( JRAN.LE.?)  GO  TO  800 
N<?  =0 

DO  69  J = 1,J<?AN 

NHir  = 0 

NMAC  = 0 

N9  = N9»l 

DO  54  I = l,Ii»AN 

IF(COOE«I ,J).F0.1)  GO  TO  57 

GO  TO  55 

57  IF(NmC.EO.l)  GO  TO  58 
IMIN(J)  s I 

NMIC  = 1 

IE(COOE<I , J»1  I .EO.U  GO  TO  55 
IF(COOE(I*l,J+l) .EQ.ll  GO  TO  59 
IE(COOE(I-l,J*l) .EO.ll  GO  TO  60 
GO  TO  55 

59  IF(COOE(I-l,J*l)  .EO.l)  GO  ’’0  65 
NJ7(N9)  = J 

NT(N9)  = 7 
GO  TO  55 

60  NJ7IN9)  = J 
N7(N9»  = 5 
GO  TO  55 

58  IF(CODF(I»l,J) .EO.O)  GO  TO  61 
GO  TO  55 

61  IMAX(J)  = I 
NNAC  = 1 

IF<CODE(I, J*1 ) .EQ.l)  GO  TO  55 
IF<COOE(I-l,J*l) .EQ.l)  GO  TO  62 
IF(CODE(I*l,J+l» .EQ.l)  GO  TO  63 
GO  TO  55 

62  N7(N9)=  N7(N9)*10T8 
NJ7«Na)  = J 

GO  TO  55 

63  N7{Ng)  = N7<N9i  *10  ♦ 6 
NJ7(N9)  = J 

55  IFtl.EO.IPAN)  GO  TO  64 
GO  TO  54 

64  IF(NMAC.EQ.O)  go  TO  65 
GO  TO  54 

65  IF(COOE»I, J). F0.2)  GO  TO  57 
IH'AXtJ)  = IMIN(J) 

N«AC  = 1 

IF( J.EO.JRAN  ) GO  TO  54 
NJ7(N9)  = J 
N7(N9>  = 5566 
54  continue 
69  CONTINUE 

J?  = JRAN  - 1 
J77  = JMIN  ♦ 1 
DO  75  N = 1,500 
RESID  = 0. 

DO  70  J = J77,J2 
IRAN  = IMAX(J»  -1 
IN  = IMINU) 

IM  = IMIN(J) 

IN7  = IMIN(J)  ♦! 

DO  70  I = IN7,IRAN 
IN  = IN  ♦ 1 
IM  = IM  ♦ 1 

IF(CODE(I, J).E0.1)  GO  TO  70 
IF»COOF(I,J>.E0.2)  GO  TO  70 

OZ=(Z(IN,  J + l)  FZdM.J-l)  (I»1,J)  ♦Zd-l.J) ) /4.  -Z(I,J» 
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Dx  = (X(iN,j«i)«x(iH,j-i)»x(i^i,j)«xii-i,jn/4.>x(i,j)  tooth 

Z<r,J»  = Z<I,J)  * 1.9*OZ  TOOTH 

xa,J)  = X(I,J)  ♦ 1.8*0X  TOOTH 

RFSIO  = RFSID  ♦ ABSJDX)  ♦ ABS<DZ)  TOOTH 

70  CONTINUE  TOOTH 

IF<N.F0.1I  RFSl  s RESrO  TOOTH 

IFIRESl.EQ.O. 9)  CO  TO  800 

IFI9ESI0/RFS1.LT.1.E-5)  GO  TO  800  TOOTH 

75  CONTINUF  TOOTH 

800  CONTINUE  TOOTH 

IFt JR6N.LF.7)  GO  TO  110 
GO  TO  115 

110  IHINtl)  = IMIN(2)  X MINI 
IHAX(1)  = IMAX(?)  X maxi 

115  IFJLL.EQ.1)  go  TO  97  TOOTH 

I=MINI  TOOTH 

90  CONTINUF  TOOTH 

JxJMIN  TOOTH 

91  CONTINUE  TOOTH 

ZII,J)=Z(I,J) ♦OEtTZ(L)  TOOTH 

JxJ*l  TOOTH 

IF( J.LE. JHAX)  GOTO  91  TOOTH 

I=I»1  TOOTH 

IF(I.LE.MAXI)  GOTO  90  TOOTH 

IF(NPO.EO.O»  GO  TO  8?  TOOTH 

Z(l, JPJ=Z (1,JP>  ♦ OFLTZJL)  TOOTH 

92  CONTINUF  TOOTH 

82  MPITF»6,99)  TOOTH 


99  F0RHATC///,9X,1HI,4X,1HJ,5X,6HZ(I,J) >6X,6HX(I,J) ,2X,9HC00F< I, J) , /» 


00  85  J=JMIN,JMAK 
IB  X IMIN(J) 

IF  X IMAX(J1 
DO  86  IxIP,IF 

WRITF(6>100)  I,J,7(I,  JI  ,X  (I»J)  .CCOEdt  J)  TOOTH 

100  FORHATt5X,2I5,2F12.5,15» 

86  continue  TOOTH 

85  CONTINUE  TOOTH 

IFfNPO.EQ.O)  GO  TO  45  TOOTH 

Ixi  TOOTH 

NRITF(6,100)  I.JP,Z(I,JP) ,X(I,JPJ,CODEII,JP)  TOOTH 

45  CONTINUE  TOOTH 

10  F0RHATI12I5) 

25  FORM AT (215 t 2F 10. 5, 315 t 2^10. 5, 15) 

26  F0RHAT(I5,2Fi:,5)  TOOTH 

27  FORMAT(2I5,2F10.5t4l5,2F10.5)  TOOTH 

49  FORMAT(10I5)  TOOTH 

302  FORMATt7F10.4) 

RETURN  TOOTH 

FNO  TOOTH 

SUBROUTINE  PU)  CHR( JMIN,  JMAX ,MINI ,MAX I, NPO , NT , NTR,L , JMIN J , JMA X 
lJ»NGS,LL,NFStNPOP,MIO,NGP»IOELTfNOT, ICLOSE, OELGP, KK, NPS) 
dimension  X(3C,30) iZ(30,30) ,JT(10) ,NTNT( 10) tNT(lO) «NG(30»30)  PUNCHR 

DIMENSION  NCG(1»30) ,COOE(30,30) tNGF(30,30) ,KSKI“(30,30)  PUNCHR 


DIMENSION  KK<10),THFTA(10) , JB(IO), JF(IO) ,8ETA(10) ,IMIN(30) ,IMAX (30 
1) 

COMMON  X,7,NG,C00F,NGE,KSKIP,NSECT,JB,JE,BETA,THFTA,IMIN,1MAX,JMAX 
llfJHINl 

COMMON  MPCiIU(?)tJU(2)»IM(?),JM(2) , I L (2) , JL ( 2 ) t ICON, LS ( 2 ) 

COMMON  ICONST (?) ,JCONST (2) 

INTEGER  0FLGP,G1,G2,G3 

•••  THIS  SUBROUTINE  PUNCHES  GRID  CAROS  AND  ELEMENT  CONNECTION  CARDS  PUNCHR 
•••  (CTPIA2  ANO  CTRIARG).  PUNCHR 

NCALL  > 0 
NCP=0 


PUNCHR 
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NCP181 
IFIXl  = 0 
IFIX?  * 0 


LSTFP=0 

PUNCHR 

VsO.O 

PUNCHR 

NCO=0 

PUNCHR 

TH»0.0 

PUNCHR 

iPin=i 

IFdOFLT.EO.ll  M*0  s t<K(N^T♦l)  - 1 

PUNCHR 

3 

IFIL.GT.I.OR.LL.GT.H  GO  TO  40 

PUNCHR 

INTN=0 

PUNCHR 

IF 10= NFS 

PUNCHR 

GO  TO  46 

PUNCHR 

40 

L5TFP=1 

PUNCHR 

IFIO=IFLAST 

PUNCHR 

NGS=NGLAST 

PUNCHR 

IF(LL.En.l)  GO  TO  46 

PUNCHR 

GO  TO  44 

PUNC HR 

46 

IFJNTP.FO.O)  go  to  10 

PUNCHR 

RFAO{5,400»  INTN 

PUNCHR 

00  5 1 = 1, NTR 

PUNCHR 

RFAn<5,402»  JT(I),MTNTII) 

PUNCHR 

5 

CONTINUE 

PUNCHR 

10 

CONTINUF 

PUNCHR 

IF(NTR.EQ.O)  INTN»0 

PUNCHR 

44 

K=1 

PUNCHR 

00  170  J=JNIN,JMAX 

PUNCHR 

IF (J.FQ. JMINI  ISKIP=2**INTN 

PUNCHR 

IF<NTP.EQ.0)  GO  TO  12 

PUNCHR 

IFCK.GT.NTRI  GO  TO  1? 

PUNCHR 

IF(J.FO.JT(K) ) GO  TO  11 

PUNC HR 

GO  TO  12 

PUNCHR 

11 

I5KIP  *2**NTNT(K» 

PUNCHR 

K=K  ♦ 1 

PUNCHR 

12 

00  150  I=MINI .MAXI.ISKIP 

ICALL  = 0 

1F(IMIN(J» .GT .11  GOTO  150 

IF^IMa:^(J)  .LT.H  GOTO  150 

PUNCHR 

IFd.FO.MINI.ANO.LSTEP.EO.H  GO  TO  62 

PUNCHR 

GO  TO  63 

PUNCHR 

62 

IF( JMINJ.NF.JHINJI)  GO  TO  4 

IFIJ.GE.JNINJ.ANO.J.LE.  JMAXJll  NGd,J)  = NCG(1,J) 

PUNCHR 

GO  TO  63 

PUNCHR 

4 

IF(J.GF.JNINJ. ANO.J.LE.  JMAXJl  NG d , J ) = NCG ( 1 , JMI NJl) 
JNINJI«JM1NJ1  ♦ 1 

PUNCHR 

63 

IFd.EQ.MAXI)  GO  TO  35 

PUNCHR 

GO  TO  36 

PUNCHR 

35 

IF (J.LE.JMAXJ.ANO.J.GE. JMINJ)  GO  TO  37 

PUNCHR 

GO  TO  36 

PUNCHR 

37 

IFINGFdtJl.NF.Ol  GO  TO  55 

NGdfJ)  = NGS 

NCG(1«J)=NG(I ,J) 

NGS  = NGS  * 1 

IFdOFLT.FQ.l)  NGS  = NGS  ♦ MAD 
IFlICLOSE.EO.O.ANO.IOELT.EQ.l)  NGS  = NGS  - 1 

NGLAST  = NGS 

PUNCHR 

GO  TO  20 

PUNCHR 

36 

IF(LSTEP.EQ.l.ANO.I.GT.MINI)  GO  TO  15 

PUNCHR 

IF(NG(I,J).EO.O»  GO  TO  15 

PUNCHR 

IF(NGF(I, Jl.NE.O)  GO  TO  55 

PUNCHR 

IFd.GT.MINI)  GO  TO  20 

IF( J.GT.JMAXJl. OR. J.LT. JMINJ)  GO  TO  15 

PUNCHR 

GO  TO  20 

PUNCHR 

15 

CONTINUE 

PUNCHR 
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IF<NGr«I,J).NF.O»  GO  TO  55  PUNCHR 

NGa»J)=NGS  PUNCHR 

Nr,S=NGS»l  PUNCHR 

IFdOFLT.EQ.U  NGS  = NG5»  M#0 

lF<ICLOSE.EQ.0.4NO.IOPLT.FO.n  NGS  s NGS  - 1 

NGLAST=NGS  PUNCHR 

GO  TO  ?0  PUNCHR 

55  IPtKSKlPd.J)  .LT.O.ANO.LL.EQ.II  GO  TO  PUNCHR 

IFfLL.EO.n  GO  TO  ao  PUNCHR 

NG<IfJ)  = IABS(NGE(r,  Jl  «•!  I PUNCHR 

IFJIDFLT.F0.1.AND.NGF(I,J) .LT.O)  NG(I,J)  = NG(I,J»  - 1 - HAD 
IFdOFLT.EQ.l  .ANO.NGF(r,J)  .GT.O)  NG<r,J)  = NG<I,J)  ♦ 1 *■  MAO 
NGF<I,J)=  IABS<t(SKIPIIf  J>  J ♦ NGF(I,J)  ♦ 1 PUNCHR 

IFdOFLT.EO.n  NGFd.JI  = NGFd,J)  ♦ MAO  ♦ 1 
IF(<SKIP(I,J» .LT.O)  GO  TO  41 

29  IFd. EO. MINT. AND. LSTFP. EO.  1)  GO  TO  50  PUNCHR 

GO  TO  51  PUNCHR 

50  IFCJ.LF.JMAXJl.aMD.J.GE.JMINJl  GC  TO  43 

51  IFlJ.EQ.l)  GO  TO  411 

IFd.LT.IMINlJ-n.OR.I.GT.IMAXCJ-l))  GO  TO  411 

IF<ABS(X(I,J-l>).FQ.O.O.ANO.AeS(Xd,J)).NF.O.Q)  Z(I,J)  = Zd,J-l) 

411  tFd.EO.l)  GO  TO  410 

IFd-ISKIP.CT.IMTNlJ)  > GO  TO  410 

rF(A8S(X(I-ISKIP,J>>.FQ.O.O.ANO.aPSrX(I,  JD.NE.O.O)  Zd,J)  = Zd-I 


ISKIO, J) 

410  IF(NGP.EO.l)  GO  TO  43 

IFdOFLT.EQ.l)  GO  TO  101 
IFINPS.GT.O)  GO  TO  70 

PUNCH  910,NG(I,  J»tNC'>,X  d,  JI  ,V,Zdf  J)  ,NCO 
MPITF  (6,9111  NGd,  J)  ,NCP,X  (I,  J)  ,Y,Zd,J)  ,NCO 
GO  TO  43 

70  PUNCH  900  ,NGtI,J),NCP,Xd,J),Y,Zd,J),NCO,NPS 
MPITF  (6,  9011  NGdjJl  ,NCP,X  d,  J1  ,Y,Z(I,Jl  ,NCO,NPS 
GO  TO  43 

101  Il»l 
JJ  = 1 

THl  s THETAdll 

102  tF(THl.GE.BETa(JJl.ANO.THl.LE.BETA(JJ4-lll  GO  TO  600 
JJ  = JJ*1 

600  IF(TH1.FQ.9ETA<NSFCT«11 1 GO  TO  605 
IF(THl.EO.0ETAtJJ*lll  GO  TO  602 
IFtTHl.EQ.9FTA (JJl 1 GO  TO  602 
605  IFtJ.LT.JPtJJl .OR.J.GT. JEtJJl 1 GO  TO  601 
IFtJ.FQ.JPtJJl.AND.J.EQ.JMAX)  GO  TO  601 
602  IFtMPC.EQ.il  GO  TO  608 

IFtNPS.GT.O)  GO  TO  73 

GO  TO  609 

608  IFtLStll .FQ.LS(’ll  GO  TO  700 

IFtLS (11 .FO.LLl  GO  TO  610 

IF(LS(21.FQ.LL1  GO  TO  611 

GO  TO  609 

700  IFd.EO.ICONSTti  l.OP.J.EQ.JCONSTtlll  HL  = 1 
IFd.EO.ICONST(?I.OR.J.FQ.  JCONST(211  ML  = 2 
GO  TO  612 

610  MLal 

GO  TO  612 

611  ml*? 

612  IFd.FQ.IU(MLl  .AND.J.FQ.JUtMLl  1 GO  TC  650 
IF(I.FO.IM(MLl .ANO.J.EQ.JMtMLl 1 GO  TO  650 
IFtI.EQ.IL(ML),AND.J.FO.JL(ML))  GO  TO  650 


rF(ML.EQ.21  GO 

TO 

701 

tFdFIXl.FQ.3  1 

GO 

TO 

35  0 

GO  TO  351 

701  IFtIFIX2.E0.3) 

GO 

TO 

704 
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r.O  TO  ?51 

350  IFIXi  = 4 

CALL  MPCPCKLtNCALL.I .JtNOT.KK, IFIXI .MAXItJMAXI 
CO  TO  6o3 
704  IFIX3  = >♦ 

CALL  ^’“C'’<^iL,NCALL.I,J,^JCT,KK,IFIX^,^'AXI,JMAX> 

GO  TO  560 

351  IF  jnpc.GT.  G » r.O  TO  73 
CO  TO  dC9 

eSO  lF(4L.Ea.?)  GO  TO  702 
IFIXI  = IFIXI  ♦ 1 

CALL  J''»C“<ML.*'ICALL,I,J,  NCT,KK,  IF  IXl  , MAX  I , JM  AX » 

CO  TO  661 

7C2  IFIxa  = IFIX?  ♦ 1 

CALL  MPCoiML  .NCALL.I  .J,  NPT,KK,  IF  1X2  , .MA  X I , JKA  X ♦ 

660  ICALL-  1 

IF(ML.eO.?J  GO  TO  706 
IFIIFIXI  .FQ.*,)  GO  TO  351 
GO  TO  5C1 

709  IF ( IFI X2 .60.4)  GO  TO  351 
CO  TO  oil 

609  PUNCH  91  0,  NG <I ,JI , NCPl, X (I, J» ,TH1,Z( I, J) ,NCP1 

WFITF(5.91H  NG(I,  J»  .NCPl.Xd.J)  ,TH1  ,7<  I,J)  .NC^l 
CO  TO  6Q1 

73  PUNCH  90  0,  NG (I ,J ) , NCPl,  X Cl, J» , THl ,7 ( I. Jl .NCPl  ,NPS 
WFTTF(6,911t  NG<I,J).N0P1,X(I,J),TH1,Z(I,J* ,NCP1 ,NPS 
6C1  IFC’Ml.EO.THFTACII*-!  »)  II=IIH 

IF  CARS  (TMI-'-hCTA  (NOT  + l)  » .lT.  C. 0011  GO  TO  42 
OTMETA  = (THETA  ( TI  »1  )-THFTA(  II)  ) /(<<  <II«-1»-KK  cm  ) 

IF  C.HL.  £0.2)  CO  TO  73  6 

IF  C ICALl.FO.I.  ANO.  IFIXI  .V'E.4)  GO  TO  43 
GO  TO  ’0  7 

706  IFCICALL.EO.I.  ANC.IFIX2.NF..,)  GO  TO  43 

707  NG(I,J)=NC(I,J)+  1 
’HI  = THl  ♦ OTHETA 

IF  (THl  .FO.  36(1.  0)  GO  TO  ,2 
GO  TO  1C  2 

42  IF  (KSKIP (I  ,J) .LT  .: ) GO  TO  4^ 

IF(ir)FL’.FQ.i)  NCCI.J)  = NGCI.J)  - (KKCNOT+i).  i) 

43  IF(J.FQ.  IMIN)  GO  TO  153 

IF (I.LF. ININ  (J) ) GO  TO  15G 
IF  (I.CT. IHAXCJ) ) CO  TO  IFO 

PUNCHP 
PUNCH9 
PUNCHP 
PUNCHR 
PUNCHR 
PUNCHR 


PUNCHR 

PUNCHR 

PUNCHP. 

PUNCHR 

PUNCHR 

PUNCHP 


PUNC HR 


IFCI.FO.MTNI)  go  to  153 
IF (K.FO. 1)  GO  TO  6 
IF (NTS .60. G ) GO  TO  6 
IF CK-1 .GT. NTF)  GO  TO  6 
IFIJ.FQ. JT<k-1))  go  to  3C 
6 CONTINUF 

IF (ICFLT.EO. 1)  GO  TO  ijO 
IF(Ans(X(I-ISKlP,J-l)).FO.C.C)  GO  TO  303 
IF CMPOP.F0.1 ) GO  TO  90 

PUNCH  9C 2, lEIO.IPIO, NGC I. Jl , NG (I-I3KIF, J) ,NG( I-ISKIP, J-1) ,TH 
HFirrio, 93  3)  IFI C, 1“ ID, MG  ( I, J)  ,NG (I - ISK IP , J ) , NG ( I -I SK I P, J-1)  ,TH 
IF (NP03. FO.C ) GO  TO  9l 

SO  PUNCH  90  4, IFIO ,NG( I, J) , NC( l-ISKI®, J)  ,NG ( I-I SK IP, J-1 ) , TH, M 1 0 
wo  I Tr(  6,,  9:5,1  lEir.NG  (I,  J)  .MCd-ISKIi’.J)  ,NG<I-ISKIF,  J-1),TH,MID 
GO  TO  96 

500  GT  = flG(I-ISKlP,  J-1) 

C2  = NG( I-ISXIO, J) 

G1  = “■G(I,J) 

IF(r,3.E0.3)  GO  TO  150 
IF(Nr.(I,J-l).EO.C)  GO  TO  15D 

call  WEOGF  (G1,  G2  ,r,  3,  3FLGP,KK,MI0  , IE  ID,  I CLOSE,  r.OT,NPOP,  J) 

90  lEID  = IFin  ♦ 1 
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ii 

} 


If 


IfdOELT.FQ.l  » G3  TO  501 
IFJNPOP.EO.l)  GO  TO  81 

PUNCH  903,  IFIO,I«»ID,NG(  I-ISKIP,  J-1)  ,NGCI,  J-1)  ,NG(I,  J>  ,TH 
WRITE  (6,90  3)  lEiC,  I«»1 0,  NG ( I-ISKIF , J- 1)  ,NG  ( I , J-1 ) ,NG ( I , J)  ,TH 
IF(NPnP.En.O)  GO  TO  91 

81  PUNCH  904,IEIO,NG(I-ISKIP, J-1) ,NG(I, J-1) ,NG(I,J) ,TH,NI0 
HP ITE  (6,905)  IEIO,NG(I-IS'<IP, J-1),NG(1,J-1),NG(I,J) ,TH,HIO 
GO  TO  91 

501  G3  = NG(I,J) 

G?  = NG(I,J-1) 

G1  = NG(I-ISKIP, J-1) 

CALL  HEDGE  (G1,G?,G3,0FLGP,KK,MI0, lEI D,ICLOSE, NOT, NPOPjJ) 

91  lEIO  = lEIO  ♦ 1 
GO  TO  150 

TOO  lF(aBS(X(I,J-l)) .EQ.0.0)  GO  TO  310 
IF(NPOP.EQ.l)  GO  TO  301 

PUNCH  906  ,IETO,IPID,NG(I-ISKIP,J-1),NG(I,J-1)  ,Nr,  ( I,  J)  , NG  ( I-ISKIP  , J 
1),TH 

WRITE (6, 9 OT)  IFlC.IPin,NG( I-ISKIP, J-1) ,NG ( I , J-1 ) , NG ( I , J) , NG ( I-ISKI 
1P,J) ,TH 

IF(NPOP.FO.O?  GO  TO  303 

301  PUNCH  908,IFID,NG(I-ISKIP, J-1) ,NG(I, J-1) , NG ( I ,J ), NG ( I-ISKIP, J) , TH, 
IHID 

WRITE  (6,90  9)  IE  ID, NG ( I- ISK I P, J-1 ) , NG ( I, J-1) , NG( I , J ) , NG ( I-ISKIP, J ) , 
ITH,H10 

TO?  IFID  =IEIO  ♦ 1 
GO  TO  150 

310  IF (NPOP.EQ.l)  GO  TO  311 

PUNCH  906,TFIO, IPIO,NG( I, J-1) , NG ( I , J) , NG ( I-I SKI P, J) ,NG ( I-ISKIP, J-1 
1),TH 

WRITE  (6,9  07)  IFIO, IPI D, NG ( I , J-1) ,NG ( I , J) , NG ( I -ISKIP, J) ,NG( I-ISKIP, 
lJ-1) ,TH 

IP(NPOP.EO.O)  GO  TO  313 

311  PUNCH  908,IFID,NG(I,J-1 ) ,NG(I, J) , NG ( I-ISKIP, J) , NG( I-I SKIP, J-1) ,TH, 
IMIO 

WRITE (6,909)  lEI D, NG ( I, J-1 ) , NG ( I , J ) , NG ( I-I SK IP, J ) , NG ( I-I SKIP, J-1 ) , 
1TH,MID 

313  lEIO  = lEIO  ♦ 1 
330  CONTINUE 
330  continue 
GO  TO  150 

30  IF(K-l.EQ.l)  GO  Tq  21 

IF (NTNT(K-l).GT.NTNT(K-?( ) GO  TO  33 
IF(NTNT(K-1).LT.NTNT(K-?) ) ISKIP1=ISKIP*3 
IF(NG(I,J-1).EO.O)  GO  TO  150 
36  IF(IOFLT.EO.l)  GO  TO  502 
IF(NPOP.EO.l)  GO  TO  83 

PUNCH  903,IPID,IPI0,NG( I-ISKIP,J) ,NG(I-3*1SKIP, J) ,NG(I-ISKIP1,J-1) 
1,TH 

WRITE (6,903)  IE  10, IPID, NG ( I-ISKIP ,J) ,N6( I-3*^SK IP, J) , NG ( I-ISKIPl , J 
1-1) ,TH 

IF(NPOP.EQ.O)  GO  TO  93 

83  PUNCH  90<»,IEI0,NG(I-ISKIP,  J)  , NG(  1-3*  ISKIP  ,,i)  , NG  ( I-ISKIPl  , J-1 ) , TH  , 
IMIO 

WRITE  (6,9  0 5)  IFIO.ng ( I- ISKI P, J) , NG ( I-3»ISKIP, J) , NG ( I-l SKIPl , J-1 ) , 
ITH.MIO 
GO  TO  9? 

503  G3  = NG(I-ISKIoi,J-l) 

G3  = NG(I-2*ISk:“,J) 

G1  = NG(I-ISKIP, J) 

IF(G3.EO.O)  GO  TO  150 
IF(NG(I,J-t).EO.O)  GO  TO  150 

CALL  HEDGE (G1 , G? ,G3,0FLGP, KK, MID, lElD, ICLOSE , NOT , NPOP, J) 

93  lEin  = IFIO  ♦ I 


PUNCHR 

PUNCHR 

PUNCHR 

PUNCHR 

PUNCHR 

PUNCHR 


PUNCHR 


PUNCHR  j 

PUNCHR 

PUNCHP  I 

PUNCHR 

PUNCHR  i 


PUNCHR 

PUNCHR 


PUNCHR 

PUNCHR 

PUNCHR 

PUNCHR 

PUNCHR 


PUNCHR 
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IFdDFLT.FO.l  ) GO  TO  50  T 
IFINOOP.EO.l)  GO  TO  8T 

PUNCH  90?,IFIO,TPID,NG(I-ISKIP1, J-1) ,NG I I , J-1 » , NG ( I-ISKIP, J) ,TH 
HRITF  (6,903)  IF  10, IPIO,  NG ( I-ISKI PI, J-1) ,NG(1, J-1) ,NG( I-ISKIP, J) ,TH 
IF(NPOP.EQ.O)  GO  TO  93 

83  PUNCH  904,IEIP,NG(I-ISKIP1, J-1),NG(I,J-1) , NG ( I-ISKIP, J ), TH,tH0 
MPITF  (6,905)  IFI0,NG(I-ISKIP1,J-1) ,NG(I, J-1) , NG ( I-ISKI P, J) , TH, MIO 
GO  TO  93 

F03  G3  = NG(I-ISKIP,J) 

= NG(I,J-1) 

G1  = NG(I-TSKI''1,J-1) 

CALL  HEDGF(G1 ,G?,G3,OFLGP,KK,MID,lEIO,ICLOSE,NaT,NPOP, J) 

93  lEIO  = IFIP»1 
IFdOELT.FO.l  ) GO  TO  504 
IF(NPOP.EQ.l)  GO  TO  84 

PUNCH  902,IEIO,I“IO,NG( I, J-1) , NG (1 , J ) ,NG ( I-l SKI P, J) ,TH 
HRITF  (6,90  3)  IFI0,IPI0,NG(I,J-1)  , NGd,  J)  , NG  ( I-ISKIP,  J I , TH 
IFtNPOP.EO.O)  GO  TO  94 

84  PUNCH  904,IEIO,NG(I,J-1),NG(I,J) ,NG(I-ISKIP,J),TH,HI0 
HPITF(6,905)  IFI0,NG( I, J-l ) , NG (I, J) , NG (I -ISKI P, J) , TH, MIO 
GO  TO  94 

504  G3  = NG(I-ISKIP,J) 

G7  = NG(I,J) 

G1  = NGd,J-l  ) 

CALL  ME0GF(G1 ,G2,G3,0FLGP,KK,MI0,IEI0,ICL0SE,N0T,NP0P,J) 

94  IFIO  = IFIO  ♦ 1 
GO  TO  150 

2?  ISKIP1=ISKIP/? 

?8  IFdOFLT.EQ.l  ) GO  TO  505 
IF(NPOP.EO.l)  GO  TO  85 

PUNCH  902, IFIO, IP10,NG(  1-2* ISKIPl , J- 1 ) ,NG ( I- ISK I PI , J-1 ) , NG ( I-ISKI P 
1,J) ,TH 

WRITF(6,90  3)  IF  10, IPIO.NG (1-2* ISKIPl, J-1 I , NG d-I SKIPl , J-1 ) ,NG (I -I S 
IKIP, J) ,TH 

IF(NPOP.EQ.O)  go  to  95 

85  PUNCH  904, IEIP,NG(I-?*ISKIP1, J-1) ,NG (I-ISKIPI ,J-1) , NG (I- ISK  IP , J) , 
ITH.MIO 

N9ITE  (6,905)  IF  10, NG ( I- 2*1 SKIPl , J-1 ) ,NG (I- ISKIPl , J-1) , NG ( I-I SKIP , J 
1) ,TM,MI0 
GO  TO  95 

505  G3  = NG(I-ISKIP,J) 

G?  = NG(I-ISKIPl,J-l) 

G1  = HGd-2*ISKIPl,  J-1) 

IF(Gl.EQ.O)  GO  TO  150 
IF(G2.EO.O)  GO  *0  150 

CALL  HEDGF(G1,G?,G3,DFLGP,KK,MI0,IE1D,ICL0SE,NDT,NP0P,J) 

95  lEIO  = lEIO  ♦ 1 
IFdOFLT.EQ.l)  GO  TO  506 
IF(NPOP.EO.l)  GO  TO  86 

PUNCH  902,IFIO,IPIO,NG(I-ISKIP1, J-1) ,NG(I,J) , NG ( I-ISK IP, J) ,TM 
WRITE (6,903)  IF  TO, IPIO, NG (I-I SKIP  1 , J-1 ) , NG (1 , J) , NG (I-ISKIP, J) ,TH 
IF (NPOP.EO.O)  GO  TO  96 

86  PUNCH  904, IFIO, NGd-ISKIPl,  J-1)  , NGd, J)  ,NG(I-ISKIP,J)  ,TH, MIO 
MPITe  (6,905)  IFIO,NG( I-ISK loi, J-1) , NGd, J) ,NG (I-ISKIP, J) ,TH,MIO 
GO  TO  96 

506  G3  = NGd-ISKIP, J) 

G2  = NGd,J) 

G1  = NGd-ISKIPl, J-1) 

CALL  HEOGF  (G1  , C2  ,G3 ,PFLGP , KK, M 10 , lEI  D,  ICLOSE  , NOT  ,NPOP,  J) 

96  IFIO  = IFIO  ♦ 1 
IFdOFLT.EQ.l  ) GO  TO  507 
IF(NPOP.FO.l)  GO  TO  87 

PUNCH  902,IFIO,IPID,NG(I-ISKIP1,J-1) , NG ( 1 , J-1 ) , NGd , J ) , TH 
write  (6,9  03)  IEI0,IPI0,NG(I-ISKIP1,  J-1),NG(I,  J-1)  ,NGd,  J)  ,TH 
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IF(NPOP.EQ.O)  GO  TO  97 

87  PUNCH  q04,IFIO,NG(I-ISKIPl,J-l)»NG(I,J-l>,NG(I,J)»TH,MIO 
MPITF  (6,9  05)  IEID,NG( I- ISKI PI , J-1 ) ,NG ( I, J-1 ) , NG ( I , J ) , TH, MIO 
GO  TO  97 

507  G7  = NG(I,J) 

G?  = NG(I,J-1) 

G1  = NG(I-ISKIP1,J-1» 

CALL  WEDGFCGl ,G2,G3,DFLGP,KK,MIO,IEIO,ICLOSF,NDT,NPOP, J) 

97  IPIO  = lEIO  ♦ 1 
GO  TO  150 

21  IF(NTNT(K-1).GT.INTN)  go  to  24 

IF(NTNT(K-1).LT.INTN)  ISKIP1=ISKIP*2 
1F(NG(I, J-1). EQ.O)  GO  TO  150 
GO  ▼O  26 

24  I5KIP1  = ISKIP/2 
GO  TO  28 
150  IFLAST=IFI0 
170  CONTINUE 

IF(NPO.EQ.O)  GO  TO  200 
JP=JHAX^1 
NG(1, JP)=NGS 
IF(NGP.EO.l)  GO  TO  105 
IFdDFLT.EQ.l  > GO  TO  510 
IF(NPS.GT.O)  go  TO  71 

PUNCH  910,NG(l,JP),NCP,X(l,JP),r,Z(l,JP) ,NCO 
NR ITF  (6,911)  NG(1,JP)  ,NCP , X ( 1 , JP) , Y, Z (1 , JP) , NCO 
GO  TO  105 

71  PUNCH  900 ,NG( 1,JP) ,NCP,X(1, JP) ,V,Z(1, JO) ,NCD,NPS 
HPITE (6,901)  NG(1,JP) ,NCP, X(1,JP) ,V,Z(1, JP) , NCO,NPS 
GO  TO  105 

510  II  = 1 

THI  = THETA(II) 

511  if(nps.gt.o)  go  to  tu 

PUNCH  910,NG( 1, JP) ,NCP1 ,X( 1,JP) , T PI , Z ( 1 , JP) , NCPl 
WPITE  (6,911)  NG(1,JP) ,NCP1 ,X(1,JP) ,TH1 , Z < 1 , JP) , NCPl 
GO  TO  72 

74  PUNCH  900,NG(1,JO),NCP1,X(1,JP),TH1,Z(1,JP),NCP1,NPS 
WRITE (6,901)  NG(l,JP) ,NCP1 , X ( 1 , JP) ,TH1 , Z ( 1 , JP) , NCPl ,NPS 

72  IF(TH1.E0.THETA( IlPl) ) II=1Ip1 
IF(THl.EO.THPTa(NOTPl))  GO  TO  100 

OTHETA  = {THE''A(  IIPI) -THETA(II)  )/(KK  (II*  l)-KK(II) ) 

NG(1,JP)  = NG(1,JP)  ♦ 1 
THI  = THI  ♦ DTHFTA 
IF(TH1.EQ.T60.0)  go  to  100 
GO  TO  511 

100  IFdOGLT.EO.l ) NGfl.jP)  s NG(1,JP)  - KK(NOT*l)  ♦ I 
105  NGLAST=NG(1,JR)  » 1 
MAX=MAXI-1 

00  60  I=MINI,HAy,ISKIP 
IFdOFLT.EO.I  ) GO  TO  508 
IF (NPOP.EQ.l)  GO  TO  88 

PUNGH  902,IFT0,I»I0,NG( ItISKIP, JPAX) ,NG ( 1 , JP ) ,NG ( I , JM AX ) , TH 
write (6,9GT)  IEIO,IPIO,NG(I*ISKIP,JMAX) ,NG( 1,JP) ,NG ( I , JMAX) , TH 
IF(NPOP.En.O)  GC  TO  60 

88  PUNCH  904,IEIO,NG<I*ISKIP,JHAX)  ,NGd,JP)  ,KGd,JHAX)  ,TH,MIO 
WRITE  (6,905)  IE  10, NG( I* ISKI P, JHA X) ,NG ( 1 , JP) , NGd , JMAX ) ,TH,MIO 
GO  TO  60 

508  G3  = NGd, JMAX) 

G2  = NG)1,JP) 

G1  = NG(I*ISKIP, JMAX) 

J a JP 

CALL  WEDGE (G1 ,GT,G3,0pLGo,KK,MI0,IFID,ICL0SE,N0T,NP0P, J) 

60  IEIO=IFIO*l 
lELASTalFIO 
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IFdOELT.FO.ll  ♦IGLAST  s NGLAST  ♦ MAO 
?00  CONTINUF 

JHAXJl  s JMAXJ 
JMINJ1=JMINJ 
400  F0RMAT(I5) 

407  FORMAT(7I5» 

900  F0RMATl4HGRI0,4y,?I8, JF9.4, 718) 

901  F0RMAT(5X,4HGRIC,4X,?I8,3F8.4,7ie) 

907  F0RMATI6MCTPIA?,?X,5I8,F8.4) 

903  F0RMAT<5X,6HCTRIA7,?X,5ie,F9.4) 

904  F0RMAT(7HCTRIAFr.,ix,(,l8,F8.4,  18) 

905  F0RMAT(5X,7HCTRIAPGtlX,4l8,F8.4, 18) 

906  FORMAT(6HCOUAO?,?X,6I8,F8.4) 

907  F0R‘1AT<5X,6HCQUA07,7X,6ie,F8.4) 

908  F0RHAT(7HCTRAPKG,lX,5I8,r8.4f 18) 

909  F0RHAT(5X,7HCTRAPPG,1X,5I9,F8.4, 18) 

910  F0RMAT(4HGRI0,4X,7I8,.3F8.4, 18) 

911  F0RMAT<5X,4HGPI0,4X,7I8,3F8.4,I8) 

RFTURN 

FNO 

SU9P0UTINF  HFOGF(Gl,G7,G3,OFLGPtKK,MID,IFIOt  iaOSE,NDT,NPOP,  J) 
0IMFN9I0N  KKI10),X(3n,30)»Z(30«30),NG(30y30)tNGF(30»30) t CODE (30, 30 
1).KSKIP(30,30  ) ,J8(10) , JF ( 1 0 ) , BET  A ( 1 0 ) , THFTA ( 10) ,IMIN(30) ,IMAX(30) 
INTEGFP  G1,G7,G3,G4,G5,G6,0ELGP 

COMMON  X,7,NG,C00F,NG^,KSXIP,NSECT,JB,JE,BETA,THETA,IMIN,IMAX,JMAX 
11, JHINI 

COMMON  MPC,IU«Z*  ,JU(7),IM(7),  JM(7)  ,IL(7)  , JL  ( 7)  , ICO!),  LS  (7 ) 

COMMON  ICONST(?)  ,JC0NST (7) 

C this  subroutine  PUNCHES  THF  SOLID  ELEMENT  CONNECTION  CAROS 
C •••  (CWFDGE)  ANO  CRDO  ♦ CTRIA?  CARDS  FOR  DISPLAY  ON  GRID  . 

T » 0.0 
IBEG  = IFIO 
G4  = G1  ♦ 1 
G5  = G7  ♦ 1 
G6  = G3  ♦ 1 

IF(ICLOSE.EQ.O)  GO  TO  100 
GO  TO  101 

100  IGl  - G1 
IG7  = G7 
IG3  = G3 

101  JJ  = KKtNOTFl)  - 1 
1=1 

IJ  = 1 

THl  = THETA(I) 

00  99  L=1,JJ 

IF(TH1.GE.BFTA(IJ).AN0.TH1.LT.BETA(TJ*1))  go  to  300 
IJ  = IJ  ♦ 1 

300  IF(J.LE.JB(IJ) .CR.J.GT.JF(IJ) ) GO  TO  105 
IF(NP0P.E0.4)  GO  TO  700 
PUNCH  600 , IEI0,MID,G1,G7,G3,G4,G5,G6 
WRITE  (6,601)  IFIC,MI0,G1,G7,G3,G4,G5,G6 
IF(NPOP.EO.T)  GO  TO  105 
700  ID  = IFIO 

IF  = IO»  DELGP 
IF(NSFCT.GT.I)  go  to  170 
IF(L.GT.l)  GO  TO  110 

IF(L.EQ. JJ.ANO.ICLOSF.EO. 0)  GO  TO  111 
170  PUNCH  800,10, ID, G1,G7,G3,T 

110  PUNCH  800,IE,rF,G4,G5,G6,7 

111  ID  = IE  ♦ DELGP 
IF  = ID  ♦ OFLGP 

PUNCH  700, IP, IP,G1,G4,IE,IF,G7,GE 
ID  = IF  ♦ OFLGF 
PUNCH  700,IC,IO,G3,G6 
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105  G1  = G4 
C?  = 05 
G^  = G6 
G4  = 04  ♦ 1 
G?  = G5  ♦ 1 
G6  = G6  ♦ 1 
IFID  = IFIO  ♦ OFLC-P 
IF(TH1.EQ.THETA(I*1))  I=I»1 

0THFT6  = (THFTAd  ♦l)-THFTft(I  ))/(KK(I  ♦1)-KK<I  l> 

THl  = THl  ♦ OTHFTA 

IF(L.EQ.JJ-1.  AK'O.ICLOSE.EO.O)  GO  TO  103 
GO  TO  99 
103  G4  s IGl 
G5  = IG3 
G6  = IG3 
99  CONTINUE 
IFIO  = I0FO 

600  F0R*1AT(6HCWEDGE,3X,8IS» 

601  F0R‘<AT(5X,6HCWE0GE,2X,8I8) 

700  F0RMA''(4HCP00,4X,8I8) 

701  F0R'1AT(5X,4HCR0n,4X,8I8) 

800  F0RNAT(6HCTRIA2,2X,5I8,F8.4> 

RFTURN 

ENO 

SU9O0UTINE  MOCPJML.NCALL,! , J,NOT,KK, IFIX ,MAXI ,JMAX) 

INTEGER  C7(5)  ,CN(5) ,C0(5» ,CT(5J , CB <5 > »CZN (5 » , CNN < 5 » ,COM ( 5 » ,CTM(5) , 
1CBM(5)  ,C(5)  ,C'<(5>  ,A,B,F,F,G,H,P,0 
INTEGER  CZ1(5) ,CN1(5) ,C0 1 1 5 ) t CTl 1 5 ) , CBl ( 5) , CZ Ml ( 5) , CNHl ( 5 » ,C0M1(5) 
IjCTMl (5) , CBMl  (5) 

INTEGER  CZ2<5) »CN2(5)  ,C02(5) ,CT2 (5 ) , C02 ( 5 ) . CZM2 ( 5) ,CNM2(5) , COM2 (5) 
1,CTM2(5>,CBM? (5> 

DIMENSION  X(3C,30) ,9130 i30) ,NT(iO) ,NG(30,30) ,DELT7(10» ,COOE(30, 30) 
DIMENSION  NGE  (30  ,30)  ,KS!<IP(30,30)  ,KK  (10)  ,THETA(10)  ,J3(10)  , JE(IO) 

I,  PET  A (10)  ,IMI(*(30),IMAX(30)  ,TITLF(13) 

COMMON  X,S,NG,COCF,NGF, KS KIP, NSECT , JB, JE , BET  A ,THET A , IMIN , IM AX , JM AX 

II,  JMIM 

COMMON  MPC,IU(2)  , JU (2 ) , IM ( 2) , JM ( 2) ,IL(2)  , JL ( 2 ) , ICON , LS ( 2 ) 

COMMON  ICCNST (2) ,JC0NST(2) 

DATA  F/lHl/,  G71H?/,  H/tH3/,  P/1H5/,  O/IHE/ 

NCP  = 1 
IPUN  = 0 

IF(TFIX.E0.4)  GO  TO  300 
lE(ML.EQ.l.ANO.NCALL.FO.O)  GO  TO  6 
IF(ML.EQ.?.AND.NCALL.EQ.0)  go  TO  7 

if(ml.eq.2.ano.ncall.fo.ij  go  to  7 

GO  TO  9 

6 NCALL  = 1 
GO  TO  10 

7 NCALL  = 2 
GO  TO  220 

10  RFA0( 5,12  0)  (CZ1(XA),KA=1,5), ( CNl (KB ) ,K3  = 1 ,5 ) ,(C01(KC) ,KC  = 1,5), (CT 
ll(K'T)  ,KOsl,5)  , (C91  (KE)  ,KF  = 1,F)  , (CZMl  (KF)  ,KF  = 1 ,5)  , ( CNMl  ( KG ) , KG=1  , 5 
2),  (COMKKH)  ,KH  = 1,F)  ,(CTM1  (KI)  ,KI  = 1,E)  ,(CBM1(KJ)  ,KJ=1,5) 
IF(LS(1).E0.LS(2))  GO  TO  221 
GO  TO  9 
221  NCALL  = 2 

220  READ (5, 120)  ( C72 (K A) , KA  = 1 , 5 ) , ( CN2 ( KB ) ,K9  = 1,5)  ,(C02(KC) ,KC  = 1,5) , ( CT 
12( KO) ,KD=1 ,5)  , (C92(KE) ,KE  = 1,5) ,(CZM2(KF) ,KF=1,5) , (CNM2(KG) ,KG=1,5 
2), (COM2(KH) ,KH=1,F) , (CTM2(KI) ,KI=1,5) , (CBM2(KJ) ,KJ=1,5) 

9 IF(«L.EQ.2)  GD  to  ^2? 

00  225  L=l,5 
CZ(L)  = C71(L) 

CN(L)  = CNl(L) 

CO(L)  = COKL) 
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C^(L)  = CTl(L) 

Ce(L)  = Cei(L) 

CZM(L»  = CZ^IKL) 

CNM(L»  = CNMl (L) 

COM(L)  = COMl (L) 

CTM(L ) = CThl <L) 

Z?5  CR^-CLI  = CR**!  (L» 

GO  TO  ?3R 
2?2  00  235  L=l,5 
C7(LI  = C7’<L) 

CN(L)  = CN2(L* 

CO<L)  = C02(LI 
CT(L)  = CT2(L» 

CP(L)  = CB’(L) 

CZM(L)  = CZM2tL) 

CNM(L)  = CNM?tU) 

COM(H  = C0M2(U) 

CTM<LI  = CTM?(L» 

235  C9M(L)  = C912(L) 

230  IFdUfML)  .RQ.  T.ANP.JUCHL)  .EO.J)  GO  TO  5 
IFdLCML)  .EO.  r.ftNO.JL(ML»  .EO.J)  GO  TO  8 
II  = 1 

THl  = THFTSdH 
20  IFdHl.EQ.O.a ) GO  TO  11 
IFdHl.EO.RO.  0»  GO  TO  12 
IFdHI.EQ. 180.0)  GO  TO  13 
IF<THl.EO. 270.0)  GO  TO  1«. 

PUNCH  100,NG(I,J),NCP,Xd,J),THl,S(I,J),NCP,  ( CB 1 (L)  ,L  = 1 , 5) 
WRITE  (6,  101)  NGd,J),NCPtXd,J),THl,S(I,J)  ,NCPf  (COM(L)  fL  = l,5) 
GO  TO  15 

11  PUNCH  100,NGt:,J),NCP,X(I,  J),THl,Sd,J),NCP,  (CZKL)  ,L=1,5> 
WRITE  (6,101)  NGd,J)  ,NCP,X  d,J(  ,THl,Sd,  J)  ,NCP,  ( CZM  ( L)  , L = 1 ,5  ) 
GO  TO  15 

12  PUNCH  100,NG(  I,  J)  ,NCP,X  (I,  J)  ,THl,Sd  ,J)  ,NCP,  (CNdL)  ,L  = 1,5) 
WRITF  (6,101)  NG(I,J),NC°,X  (I,J)  ,THl,Sd,  J)  ,NCP,  ( CNM  (L)  , C=  1,5 ) 
GO  TO  15 

13  PUNCH  100,NG(r,J),NCP,V(I,J),THl,S(I,J),NCP, (COH(l» ,L=1,5) 
W'd’’P(6,101)  'IG(I,J)  ,NC°,X  (I,J)  ,TH1,S(I,  J)  ,NCP,  (COM(L)  ,L=1,5) 
GO  TO  15 

14  PUNCH  100,NG(I,J),NCP,X(I,J),THl,Gd,J),NCP,  (CTH(L)  ,L  = 1,6) 
write  (6, 101)  NG(I, J) ,NCP,X (I,J) ,thi,S(I, J) ,NCP, (CTM(L) ,L  = 1,5) 

15  GO  TO  94 
300  10  = 1 

Ifl  = l 
19  = ^ 

IC=T 
IF  = 5 
IFa6 
7=1.0 
O=-1.0 
IGAVF  = I 
JGAVE  = J 
II  = 1 

THl  = THETAdl) 

NG (TH(ML) ,JM( ML) ) = NG( IM( HL) , JM (HL) ) 

NG (IL(ML) , JL( ML) ) = NG(  IL ( hl) , JL (HL)  ) 

NG(I1)(ML)  ,JU(HL)  ) = NG(IU(  ML)  ,JU(HL)  ) 

330  A=B=F=0 

IF(Thi.FQ.0.0 ) GC  TO  301 
IF(Thi.EC.90.O)  go  to  302 
IF(Thi.E0. 190.0)  GO  TO  303 
IF(Thi.FO. 270.0)  GO  TO  304 
00  25  K=l,5 
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CM  IK)  =C9HIK) 

GO  TO  325 

301  00  25  K=lt5 
CIK)  s CZIK) 

26  CMIK)  s CZHIK) 

GO  TO  325 

302  00  30  K=l,5 
CIKI  - CNIK) 

30  CKIK)  = CNNIK) 

GO  TO  32  5 

303  00  31  K=l,5 
CIK)  = COIK) 

31  CHIK)  = COHIK) 

GO  TO  325 

306  00  32  K-1,5 
CIK)  = CTIK) 

32  CNIK)  3 CTHIK) 

325  I = IMINL) 

J = JMINL) 

RU  s X IIUINL)« JUIHL) ) - XII. J) 

RL  = X IILIMD.JLIHL)  ) - XII, J) 

RR  = XII,J)-XIIUIHL)  .JLIIML)) 

RS  = XII. J)  - XIILIHL),  JLIHD) 

00  6 0 N=l«5 
IFICMIMI.EQ.  FI  A = 1 
IF  ICNIN) .€Q.G)  a-1 

60  IF  ICNINI.EO.H)  E = 1 
IFia.EO.  1)  GO  TO  65 
GO  TO  66 

61  IFIE.EQ. 1)  GO  TO  50 
GO  TO  51 

65  00  60  N:l«5 

60  IF  ICHIN) .EQ.Q)  B=2 
GO  TO  61 

66  DO  65  I.Nsl.5 

65  IF ICHILNI.EO.Q)  R=3 
GO  TO  61 

50  00  75  KL=1.5 

75  IFICMIKD.EQ.P)  E=2 
GO  TO  66 

51  00  76  LK=1,5 

76  IFICMILKI.EQ.P)  E=3 

66  00  62  LN^l.S 
IFICILMI.EQ.F)  A = 1 
IFICILNI.EO.G.ANO.B.EQ.l)  8=2 
IFICILM).EQ.G.AN0.8.EQ.3I  8=2 
IFICILN)  .eO.H.  ANO.E.EQ.  1)  F=2 

62  IF  ICILMI.cQ.H. ANO.E.EQ. 3)  E=2 

IFIA. EQ.  1)  GO  TO  80 

PUNCH  IQS.IO.NGIIUINL).  JUIND)  tlA.Z.NGII.J)  tlA.O 
WRITE  1 6, 10  6)  lO.NGlIUlNLI .JUINL) ) .lA *Z. NGII , J) ,IA,0 
PUNCH  1i]5,I0.NGIIL{NL).  JLIHD)  « I A.Z  . NG 1 1 . J)  . I A.O 
WRITE  1 6.  10  6)  1 0.  NGII  LIND,  JLIHD  ).I  A, 7.  NGII,  J)  .1  A.O 

80  IFIB.EQ.OI  GO  TO  81 

ZFI8.EQ.1)  GO  TO  82 

IFIB. EQ.3I  GO  TO  83 

GO  TO  86 

81  PUNCH  109,IO.NG(IUINL).JUIHL)I .IB.Z.NGII.J) .lE.RR.ICON 
WRITE!  6.  110)  lO.NGlIUMD  .JUIHL)  ) .1 3 ,Z.  NGII  ,J)  , IE,  RR.  ICON 
PUNCH  107. ICON, NGII, J), IB, 0 

WRITEIB.IOSI  ICON, NGII, J). 13.0 
ICON  = ICON  » 1 

PUNCH  lOR.ID.NGIILIHL). JLIHD ), IB, Z, NGII, J) , IE, RS. ICON 
WRITE (6. 110)  lO.NGIILINL). JL IML) I ,I B ,Z, NGII, J ) ,IE.RS, ICON 
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82 


83 


84 


91 


92 


93 


94 


70 


5 

8 


125 


PUNCH  10 7, ICONfNnc I, Jl , IP,0 
WRITE(6tlo8l  ICON.NGd. 

ICON  = ICON  ♦ 1 
GO  TO  84 

PUNCH  105«IO«NG(IU(MLI. JU(KL)I «IB,7«NG(I« J)« IE«RR 
HRITE(6t  10  6)  IDf  NGdUlNL)  « JU(HL)  I , I B .Z.  NG  (I  « J)  «IE«RR 
PUNCH  105,ID«NG( IL (ML) . JL(N.)) «I8,Z,NG( I«J) «IE.RS 
HRITEf6t  10  6)  IO,NGdL(iL) . JL  (NL)  I .IB  ,7,  NGd  « J)  «IE«RS 
GO  TO  84 

PUNCH  105.IO*NG(IU(HL)< JU<ML>)*IBtZ,NGCItJ) tie*0 
WRITE  (6,  10  61  lO.NG  dU(WL),  JU(HL)  ) . IB  ,7.  NGd  « J)  « IB«0 
PUNCH  105tIO«NG(IL(MLIf JL(HL)) «IB.Z,NG(I,J) *IB.D 
WRITE!  6,  106)  1 0,  NG  (I  L ( NL)  « JL  (HL)  ) ,I9,Z«NGd,Jt  ,IB,0 
CONTINUE 

IFJE.EQ.O)  GO  TO  91 
IE (E.EQ. 1)  GO  TO  92 
IF (E.EQ. 3)  GO  TO  93 
60  TO  94 

PUNCH  10  9,IO,NG(IU(ML) , JU(HL)I . IC, Z . NG ( I . J>  « I F,RU. ICON 
WRITE(6,110I  ID,NGdU('1L).JU(h!LI  I . IC  *Z»  NGd  , J)  . IF»RU«  ICON 
PUNCH  107,:CON,NG(I, J),IC,C 
WRITE(6.108)  ICON.NGd.  JI.IC.O 
ICON  = ICON  ♦ 1 

PUNCH  109. ID.NGC IL (ML) . JL(HL)) *IC.Z. NGI I.J) .IF.RL.ICON 

WRITE  (6.  110)  lO.KG  (ILIND.JL  (NLI  ) . IC  . 7.  NG  d « J I . IF.RL.  ICON 

PUNCH  lOZ.ICON.NGd.  J).  IC.O 

WRITE<6.103)  ICON.NGd.  J). IC.O 

ICON  = ICON  «•  1 

GO  TO  94 

PUNCH  10  5.ID.NG(IU(HL).JU(ML)I.IC.Z.NGd.J).IF.eu 
WRITE (6.  13  6)  lO.NGdU(ML)  .JU(HL)  ) .IC.Z.NGd.JI  .IF.RU 
PUNCH  105.IO.NG( IL(ML). JL(ML)) .IC.Z.NGI I.J) .IF.RL 
WRITE(6.  106)  IO.NGdL(HL).JL()(L)  ).IC.Z.  NGd,  Jl,  IF.RL 
GO  TO  94 

PUNCH  ia5.IO,NGdU(ML).JU(NL)).IC.Z.NG(I.J).IC.O 
WRITE (6. 10  6)  IO,NGdU(ML)  .JU(HL)  ) ,IC  .7, NGd  . J)  . IC.O 
PUNCH  laS.IO.NGdUML),  JLIMD)  .IC.Z.NGCI.J)  .IC.O 
WRITE (6,  13  6)  lO.NGdL(NL)  .JL(NL)  ) . IC .7,  NG  (I . J)  , IC.O 
CONTINUE 

IFdHl.EQ.THETAdl*!))  II=II*1 
IF(THl.EO.THETfl(NOTd))  GO  TO  70 

OTHETA  = (THET  A(  II»1  )-THETAdI) ) /IKK  dI41)-KKdI)  ) 


NGd.J)  = NGd  ,J)-H 

NGdU(ML),JU(ML)  ) = NGdU(ML),JU(NL))  ♦ 1 
NGdL(iL),JL(ML))  = NGdL(NL),JL(ML))  ♦ 1 


(KK  INDT»1)-1) 

NGI lU(ML) , JUIML) ) - ( KK (NOT»l) -1) 
NG( ILINL) .JL (ML) ) - ( KK (N OT*l) -1) 


TH1=TH1  ♦ OTHETA 
IFITHI.EO. 360.0)  GO  TO  70 
IF(IF1X.EQ.4)  GO  TO  330 
IFdPUN.EQ.l)  GO  TO  330 
GO  TO  20 

NGd.J)  = NGd.J) 

NG (IU( ML) , JUIML) ) 

NGIILIMD.JLIML)  ) 

GO  TO  210 
CONTINUE 
CONTINUE 
II  = 1 

THl  = THFTAdI) 

IFITHI.EQ.0.0)  GO  TO  130 
IF (THl. EQ. 90.0 ) GO  TO  131 
IF  (TH1.EO.19C.0)  GO  TO  132 
IF (THl .EQ.270. 0)  GO  TO  133 

PUNCH  10  0.NG(I.J),NCP.X  (I.J)  .THl  ,S  ( I . J ) . NCP , (CB(L)  . L^^  1. 5) 
WRITE  (6.  101)  NGd.J)  ,NCP,Xd.JI,THl,S(I.J).NCP.(CB(L)  .L=1.5I 
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GO  TO  201 

PUNCH  lQOtNG(IvJ)fNCPtX(I,J),THlfSIIyJ) fNCP, I CZ ( L) »L>1 , 5 ) 
NRITF(6>101>  NG(I*J)tNCP>X J)»NCP« (CZ(L) »Lsi,5) 
GO  TO  201 

PUNCH  100,NG<I,J)»NCPtX(It J>tTHl,S(IfJ) >NCPt ( CN I L)  >L>1 , 5) 
MRITC(6tl01)  NG(I,J)»NCP«X (I, J) ,THl,S(It Jl tNCPf  <CN(L) ,L=1»SI 
GO  TO  201 

PUNCH  100 tNG(I,J),NCP>X (I, J),TH1,S(I ,J), NCP, (CO(L) tS) 
MRITE  (6,101)  NG(I,J),NCP,X (I, J) ,TH1,S(I, J) ,NCP, ( CO (L) ,L> 1 • 51 
GO  TO  201 

PUNCH  100,NG(  IfJ)  ,NCP,X  (I  , J)  , THl  , S ( I , J) , NCP,  (CT  (L)  ,L=  1 , 5 ) 
WRITE  (6,101)  NG(I,J) ,NCP,X(I,J> ,TH1,S(I, J) ,NCP, ( CT (L ) ,!» 1,5 ) 
CONTINUE 

IF(TH1.E0.THET4(II*1) ) II=II^1 
IF(TH1.E(J.THETA(N0T»1))  GO  TO  205 

OTHETA  = (THETA(II*1)-THETA(II))/(KK(II»1)-KK(II)) 

NG(T, J)=NG(I, J)«l 
TH1=TH1  ♦ OTHETA 
IF(TH1.E0. 360.0)  GO  TO  205 
GO  TO  125 

continue 

IF(I.EQ.IH(ML) .ANO.J.EQ.JM(ML))  GO  TO  360 
NG(I,J)  = NG(I,J)  - (KK(NDT*1)  - 1) 

GO  TO  400 
CONTINUE 

IF(IFIX.NE.4)  GO  TO  400 
I = I5AVF 
J s JSAVE 
CONTINUE 

IF(IPUN.EO.l)  GO  TO  425 
IFd.EQ.HAXI.  AND.J.EQ.JHAX)  GO  TC  410 
GO  TO  411 

IF(IPUN.EO.O)  GO  TO  420 

GO  TO  411 

IPUN  = 1 

GO  TO  300 

I = ISAVF 

J = JSAVE 

CONTINUE 

F0RHAT(4HGRI0,4X,2IS,3F8.3,ia,3X,5Al) 

F0RHAT(5X,4HGRI0,4X,2ia,3F6.3,ie,3X,5Al) 

F0RHAT(3HHPC,5X,3I8,F8.3,?I8,F8.3) 

FORMAT(5X,3HHPC,5X,3I8,F8.3,2I8,F8.3) 

F0RHAT(1H^,I3,12X,2I8,F8.3) 

F0RMAT(5X,1H+,I3,12X,2I8,E8.3) 
F0RHAT(3HMPC,5X,3I8,F8.3,2I8,F8.3,8X,1H*,I3) 
F0RHAT(5X,3HHPC,5X,3I6,F8.3,2I8,F8.3,8X,1H*,  13) 

FORHAT(50 Al) 

RETURN 
E 
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This  appendix  presents  eight  sample  problems.  Each  one 
demonstrates  some  of  the  important  features  of  JIG.  Each  of  the 
following  problems  gives  a statement  emphasizing  these  important 
features,  the  mesh  planning  and  preparation  of  data,  the  input 
and  output  listings,  and  a hardcopy  of  the  structural  plot. 

B-I.  Triangular  Membrane  and  Bending,  Axisymmetric 

Triangular  Ring,  and  3-D  Solid  Elements  - featuring 


CTRIA2,  CTRIARG  and  CWEDGE  finite  element  structural 


models. 


B-II.  Variable  Cross-Section's  - featuring  solid  wedge  finite 
element  model  having  variable  cross  section. 

B-III.  Repeated  sections  - featuring  repeated  sections  used 
in  a threaded  joint. 

B-IV.  Variable  Theta  - featuring  variable  theta  options  for 
CWEDGE  structural  finite  element  models. 


B-V.  Prescribed  Points  and  Lines  - featuring  prescribed 

point  and  line  options.  (Applies  to  a cross  section) . 

B-VI.  Transition  -featuring  combinations  of  increasing  and 
decreasing  the  mesh  size  of  a structural  model  (R- 
direction  only) . 

B-VII.  MPC  Generator  - featuring  the  generation  of  MPC  cards 
for  connection  of  solid  wedge  to  plate  elements. 

B-VIII.  Curved  Boundary  - featuring  a nozzle  using  the  curved 
boundary  option. 

’1 


B-1 
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PROBLEM  B-I 

TRIANGULAR  MEMBRANE  AND  BENDING,  AXISYMMETRIC 
TRIANGULAR  RING  AND  3-D  SOLID  ELEMENTS 

The  three  following  examples  demonstrate  the  use  of  CTRIA2, 
CTRIARG  and  the  CWEDGE  options.  Figure  B-1,  shows  the  planned  finite 
element  model  and  configuration  of  the  cross-section  of  a solid  ring. 
This  model  shall  be  used  to  demonstrate  all  three  of  the  above  options. 
In  example  B-I-A  the  CTRIA2  punch  option  is  shown.  The  model,  con- 
sisting of  a constant  thickness  flat  plate,  was  divided  into  five 
equal  spaces  in  the  I - Z direction  and  four  equal  spaces  in  the 
J - X or  R direction.  A complete  listing  of  the  data  input  is  shown 
in  Figure  B-2.  Figure  B-3  shows  the  grid  point  and  element  identifi- 
cation numbers  as  generated  by  JIG.  Figure  B-4  gives  a structural 
plot  of  the  finite  element  model  and  is  followed  by  a listing  of 
the  JIG  punched  output. 

Example  B-I-B  demonstrates  the  CTRIARG  option.  Figure  B-1  shows 
the  planned  finite  element  model  and  configuration  of  an  axisymmetric 
ring.  A complete  listing  of  the  data  input  is  shown  in  Figure  B-5. 
Figure  B-6  shows  the  the  grid  point  and  element  identification  numbers 
as  generated  by  JIG.  Figure  B-7  gives  a structural  plot  of  the  finite 
element  model  and  is  followed  by  a listing  of  the  JIG  punched  output. 

In  example  B-I-C  the  CWEDGE  punch  option  is  shown.  The  planned 
finite  element  model  and  configuration  of  the  solid  3-D  element  option 
is  shown  in  Figure  B-1.  The  model  was  divided  into  five  equal  spaces 
in  the  I - Z direction,  four  equal  spaces  in  the  J - X or  R direction, 
and  six  equal  spaces  in  the  theta  direction.  A complete  listing 
of  the  data  input  is  shown  in  Figure  B-8.  Figures  B-9  and  B-10  show 


B-2 


FIG.  B-1  FINITE  ELEMENT  MODEL  AND  CONFIGURATION 
OF  THE  CROSS-SECTION  OF  A SOLID  RING 
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FIG.  B-2  DATA  INPUT  PROBLEM  B-l-A 
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FIG.  B-3  GRID  POINT  AND  ELEMENT  IDENTIFICATION  NUMBERS 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CAROS 
PROBLEM  B-l-A  TRIANGULAR  MEMBRANE  ELEMENTS 


JUNCTION  INPUT  GENERATOR  PROGRAM 


•• 

(JIG)  ** 


•••  SAMPLE  1 - PLATE  ELEMENTS  *** 


NST  = 
NGS  * 
NES  = 
NPOP  = 
MIO  * 
NGP  * 
lOELT  = 
NSECT  * 
NT(  1)  = 


OELTZ(  1) 


0.0000 


J 
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I 

J 

7(I»J) 

X(I,J) 

1 

1 

o.nnnoo 

1.00000 

2 

1 

1.00000 

1.00000 

3 

1 

?. 00000 

1.00000 

4 

1 

3.00000 

1.00000 

6 

1 

4.00000 

1.00000 

6 

1 

G. 00000 

1.00000 

1 

2 

0.00000 

1.79000 

2 

2 

1.00000 

1.79999 

3 

2 

?. 00001 

1.8900? 

4 

2 

3.0000? 

1.90000 

5 

2 

3.99999 

1.94990 

6 

2 

9.00000 

7.00000 

1 

3 

0.00000 

?. 90000 

2 

3 

1.00003 

?.6000? 

3 

3 

?.oooo? 

?. 70002 

4 

3 

3.00000 

?. 79999 

5 

3 

4.00000 

?. 90000 

6 

3 

9.00000 

3.00000 

1 

4 

0.00000 

3.29000 

2 

4 

1.0000? 

3.40002 

3 

4 

1.99998 

3.94999 

4 

4 

3.00000 

3.70000 

5 

4 

4.00000 

3.84999 

6 

4 

9.00000 

4.00000 

1 

5 

0.00000 

4.00000 

2 

5 

1.00000 

4.20000 

3 

5 

?. 00000 

4.40000 

4 

5 

3.00000 

4.60000 

5 

5 

4.00000 

4.00000 

6 

5 

9.00000 

9.00000 

GRID 

1 

0 

1.0000 

GRID 

? 

0 

1.0000 

GRID 

3 

0 

1.0000 

GRID 

4 

0 

1.0000 

GRID 

9 

0 

1.0000 

GRID 

6 

0 

1.0000 

GRID 

7 

0 

1.7900 

GRID 

8 

0 

1.8000 

CTRI4? 

1 

1 

8 

CTRIR? 

? 

1 

1 

GRID 

9 

0 

1.8900 

CTRIR? 

3 

1 

9 

CTRIR? 

4 

1 

2 

GRID 

10 

0 

1.9000 

CTRIR? 

9 

1 

10 

CTRIR? 

6 

1 

3 

GRID 

11 

0 

1.9900 

CTRIR? 

7 

1 

11 

CTRIR? 

8 

1 

4 

GRID 

1? 

0 

2.0000 

CTRIR? 

9 

1 

12 

CTRIR? 

10 

1 

9 

GRID 

13 

0 

2.9000 

GRID 

14 

0 

2.6000 

CTRIR? 

11 

1 

14 

CTRIR? 

1? 

1 

7 

GRID 

19 

0 

2.7000 

CTRIR? 

13 

1 

19 

cooeiif j> 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

e 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 


0.0000 

0.0000 

0 

496 

0.0000 

1.0000 

0 

496 

0.0000 

2.0000 

0 

496 

0.0000 

3.0000 

0 

496 

0.0000 

4.0000 

0 

496 

0.0000 

9.0000 

0 

4 96 

0.0000 

0.0000 

0 

496 

0.0000 

1.0000 

0 

496 

7 

1 

0.0000 

2 

8 

0.0000 

0.0000 

2.0000 

0 

496 

8 

2 

0.0000 

3 

9 

0.0000 

0.0000 

3.0000 

0 

496 

9 

3 

0.0000 

4 

10 

0.0000 

0.0000 

4.0000 

0 

496 

10 

4 

0.0000 

9 

11 

0.0000 

0.0000 

9.0000 

0 

496 

11 

5 

0.0000 

6 

12 

0.0000 

0.0000 

0.0000 

0 

496 

0.0000 

1.0000 

0 

496 

13 

7 

0.0000 

8 

14 

0.0000 

0.0000 

2.0000 

0 

496 

14 

8 

0.0000 

-.r.g.TrTrrr.-:.?ir 
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CTRIA? 

14 

1 

8 

9 

15 

0.0000 

GRID 

16 

0 

?.8000 

0.0000 

3.0000 

0 

CTRI»? 

15 

1 

16 

15 

9 

0.0000 

CTRIA? 

16 

1 

9 

10 

16 

0.0000 

GRID 

17 

0 

?.9000 

0.0000 

4.0000 

0 

CTRIA? 

17 

1 

17 

16 

10 

0.0000 

CTRIA? 

18 

1 

10 

11 

17 

0.0000 

GRID 

18 

0 

3.0000 

0.0000 

5.0000 

0 

CTRIA? 

19 

1 

18 

17 

11 

0.0000 

CTRIA? 

?0 

1 

11 

1? 

18 

0.0000 

GRID 

19 

0 

3.?500 

0.0000 

0.0000 

0 

GRID 

?0 

0 

3.4000 

0.0000 

1.0000 

0 

CTRIA? 

?1 

1 

?0 

19 

13 

0.0000 

CTRIA? 

?? 

1 

13 

14 

?0 

0.0000 

GRID 

?1 

0 

3.5500 

0.0000 

?.0000 

0 

CTRIA? 

?T 

1 

?1 

?0 

14 

0.0000 

CTRIA? 

?4 

1 

14 

15 

?1 

0.0000 

GRID 

?? 

0 

3.7000 

0.0000 

3.0000 

0 

CTRIA? 

?5 

1 

?? 

?1 

15 

0.0000 

CTRIA? 

?6 

1 

15 

16 

?? 

0.0000 

GRID 

?3 

0 

3.8500 

0.0000 

4.0000 

0 

CTRIA? 

?7 

1 

?3 

?? 

16 

0.0000 

CTRIA? 

?8 

1 

16 

17 

?3 

0.0000 

GRID 

?u 

0 

4.0000 

0.0000 

5.0000 

0 

CTRIA? 

?9 

1 

?4 

?3 

17 

0.0000 

CTRIA? 

T'tP 

1 

17 

18 

?4 

0.0000 

GRID 

?5 

0 

4.0000 

0.0000 

0.0000 

0 

GRID 

?6 

0 

4.?000 

0.0000 

1.0000 

0 

CTRIA? 

31 

1 

?6 

?5 

19 

0.0000 

CTRIA? 

J? 

1 

19 

?0 

?6 

0.0000 

GRID 

?7 

0 

4.4000 

0.0000 

2.0000 

0 

CTRIA? 

33 

1 

?7 

?6 

?0 

0.0000 

CTRIA? 

34 

1 

?0 

?1 

?7 

0.0000 

GRID 

?8 

0 

4.6000 

0.0000 

3.0000 

0 

CTRIA? 

35 

1 

?8 

?7 

21 

0.0000 

CTRIA? 

36 

1 

?1 

?? 

?8 

0.0000 

GRID 

?9 

0 

4.8000 

0.0000 

4.0000 

0 

CTRIA? 

37 

1 

?9 

?0 

2? 

0.0000 

CTRIA? 

38 

1 

?? 

?3 

29 

0.0000 

GRID 

30 

0 

5.0000 

0.0000 

5.0000 

0 

CTRIA? 

39 

1 

30 

?9 

23 

0.0000 

CTRIA’ 

40 

1 

?3 

?4 

30 

0.0000 
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FIG.  B-7  NASTRAN  STRUCTURAL  PLOT 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-l-B  AXISYMMETRIC  RING  ELEMENTS 


I 


**•  SAMPLE  1 - AXISYMMETRIC  RING  ELEMEMTS  ••• 


NST  = 1 

NG3  = 1 

NES  = 1 

NPOP  = 1 

MIO  = 5 

NGP  - 0 

lOELT  = 0 

NSECT  = 1 

NT(  1)  = 1 3ELTZ(  1)  = O.OCOO 
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I 

J 

7«I,J» 

X(I,J) 

1 

1 

O.QOOOO 

1.00000 

7 

1 

1.00000 

1.00000 

3 

1 

2.00000 

1. 00000 

1 

3.00000 

1. 00000 

5 

1 

4.00000 

1.00000 

6 

1 

E. 00000 

1.00000 

1 

2 

0.00000 

1.75000 

2 

2 

1.00000 

1.79999 

3 

2 

2.00001 

1.85002 

<« 

2 

3.00002 

1.90000 

5 

2 

3.99999 

1.94998 

6 

2 

3.00000 

2.-00000 

1 

3 

o.oooor 

2.50000 

2 

3 

1.00003 

2.60002 

3 

3 

2.00002 

2.70002 

*♦ 

3 

3.00000 

2.79999 

5 

3 

4.00000 

2.90000 

o 

3 

3.00000 

3.00000 

1 

4 

0.00000 

3.25000 

2 

4 

1.00002 

3.40002 

3 

* 

1.99993 

3.54999 

4 

3.00000 

3.70000 

5 

1. 

4.00000 

3.84  999 

6 

<♦ 

5.00000 

4. 00000 

1 

5 

0.00000 

4.00000 

2 

5 

1.00000 

4.20000 

3 

5 

2.00000 

4.40000 

4 

5 

^.00000 

4.60000 

5 

5 

4.00000 

4.80000 

6 

5 

5.00000 

5. 00000 

GRID 

1 

0 

1.0000 

GRID 

2 

0 

1.0000 

GRID 

3 

0 

1.0000 

GRID 

4 

0 

1 .0000 

GRID 

5 

0 

1. 3000 

GRID 

6 

0 

1.0000 

GRID 

7 

0 

1.7500 

GRID 

8 

0 

1.8000 

ctriarg 

1 

8 

7 

CTRIARG 

2 

1 

2 

GRID 

9 

0 

1.8500 

CTRIARG 

3 

9 

8 

CTRIARG 

H 

2 

3 

GRID 

10 

0 

1.9000 

CTRIARG 

5 

10 

9 

CVRIA5& 

6 

3 

4 

grid 

11 

0 

1.9500 

CTRIARG 

7 

11 

10 

CTRIARG 

3 

4 

5 

GRID 

12 

0 

2.0000 

ctriarg 

9 

12 

11 

CTRIARG 

10 

5 

6 

GRID 

13 

0 

2.5000 

GRID 

It 

3 

2.6000 

CTRIARG 

11 

l4 

13 

CTRIARG 

12 

7 

8 

GRID 

15 

0 

2.7000 

ctriarg 

13 

15 

14 

COOEd,  J) 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 


0.0000 

0.0003 

0 

456 

0.0000 

1.0000 

0 

456 

0.0000 

2.0000 

0 

456 

0.0000 

3.0000 

0 

456 

0.0000 

4.0000 

0 

456 

0.0000 

5.0000 

0 

456 

0.0000 

0.0000 

0 

456 

0.0000 

1.0000 

0 

456 

1 

0.0000 

5 

8 

0.0000 

5 

0.0000 

2.0000 

0 

456 

2 

0.0000 

5 

9 

0.0000 

5 

0.0000 

3.0000 

0 

456 

3 

0 . 0 0 0 u 

5 

1C 

0.0000 

5 

0.0000 

4.0000 

0 

456 

4 

c.oooo 

5 

11 

0.0003 

5 

0.0000 

5.0000 

3 

456 

5 

0.0000 

5 

12 

0.0000 

5 

0.0000 

0.0000 

0 

456 

0.0000 

1.0003 

0 

456 

7 

0.0000 

5 

14 

0.0000 

5 

0.0000 

2.0000 

0 

456 

8 

0.0000 

5 
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CTRIARG 

14 

3 

9 

15 

0.0000 

5 

GRID 

16 

0 

2.8000 

0.0000 

3.0000 

0 

456 

CTRIARG 

15 

16 

15 

9 

0.0000 

5 

CTRIARG 

16 

9 

10 

16 

0.0000 

5 

GRID 

17 

0 

2.9000 

0.0000 

4.0000 

0 

456 

CTRIARG 

17 

17 

16 

10 

0.0000 

5 

CTRIARG 

la 

10 

11 

17 

0.0000 

5 

GRID 

18 

0 

3.0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

19 

18 

17 

11 

0.0000 

5 

CTRIARG 

20 

11 

12 

16 

0.0000 

5 

GRID 

19 

0 

3.2500 

0.0000 

0.0000 

0 

456 

GRID 

20 

0 

3.4000 

0.0000 

1.0000 

0 

456 

CTRIARG 

21 

20 

19 

13 

0.0000 

5 

CTRIARG 

22 

13 

14 

20 

0.0000 

5 

GRID 

21 

0 

3.5500 

0.0000 

2.0000 

0 

456 

CTRIARG 

23 

21 

20 

14 

0.0000 

5 

CTRIARG 

24 

14 

15 

21 

0.0000 

5 

GRID 

22 

0 

3.7000 

0.0000 

3.0000 

0 

456 

CTRIARG 

25 

22 

21 

15 

0.0000 

5 

CTRIARG 

26 

15 

16 

22 

0.0000 

5 

GRID 

23 

0 

3.8500 

0.0000 

4.0000 

0 

456 

CTRIARG 

27 

23 

22 

16 

0.0000 

5 

CTRIARG 

28 

16 

17 

23 

0.0000 

5 

GRID 

24 

0 

4. 0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

29 

24 

23 

17 

0.0000 

5 

CTRIARG 

30 

17 

16 

24 

0.0000 

5 

GRID 

25 

0 

4.0000 

0.0000 

0.0000 

0 

456 

GRID 

26 

0 

4.2000 

0.0000 

1.0000 

0 

456 

CTRIARG 

31 

26 

25 

19 

0.0000 

5 

CTRIARG 

32 

19 

20 

26 

0.0000 

5 

GRID 

27 

0 

4. 4000 

0.0000 

2.0000 

0 

456 

CTRIARG 

33 

27 

26 

20 

0.0000 

5 

CTRIARG 

34 

20 

21 

27 

0.0000 

5 

GRID 

28 

0 

4.6000 

0.0000 

3.0000 

0 

456 

CTRIARG 

35 

28 

27 

21 

0.0000 

5 

CTRIARG 

36 

21 

22 

28 

0.0000 

5 

GRID 

29 

0 

4.6000 

0.0000 

4.0000 

0 

456 

CTRIARG 

37 

29 

28 

22 

0.0000 

5 

CTRIARG 

38 

22 

23 

29 

0.0000 

5 

GRID 

30 

0 

5.0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

39 

30 

29 

23 

0.0000 

5 

CTRIARG 

40 

23 

24 

30 

0.0000 

5 
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the  grid  point  and  element  identification  numbers  as  generated  by 
JIG.  Figure  B-11  gives  the  structural  plot  of  the  finite  element 
model  followed  by  a listing  of  the  JIG  punched  output. 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-l-C  3-D  SOLID  ELEMENTS 


junction  input  genfpator  program 


•••  SAMPLE  1-30  SOLID  ELEMENTS 


NST  = 1 

NGS  = 1 

NES  = 1 

NPOP  = 3 

MI  J s 5 

NCP  = 0 

lOFLT  = 1 

NSFCT  = 1 

NTI  II  * 1 OELTZI  1) 

NOT  = 1 

ICLOSE  = 1 

DFlGP  = 100 

KKI  1)  * 1 TMETAI  1) 

KKt  2)  - 7 THETA!  21 

OETA!  1)  « 0.0000 

RFTA!  2)  > ISO. 0000 

Jfl!  1)  » 1 JE(  1)  X 


0. 0000 


0.0000 

160.0000 

5 
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I 

J 

Z(I,J> 

X(I,J»  CODECI 

. J) 

1 

1 

0.00000 

1.00000  1 

2 

1 

1.00000 

1.00000  1 

3 

1 

2.00000 

1.00000  1 

>♦ 

1 

3.00000 

1.00000  1 

5 

1 

4.00000 

1.00000  1 

6 

1 

D. 00000 

1.00000  1 

1 

2 

0.00000 

1.75000  1 

2 

2 

l.OQOQO 

1.79999  0 

3 

2 

2.00001 

1.33002  0 

4 

2 

3.00002 

1.90000  0 

5 

2 

3.99999 

1.94998  0 

6 

2 

G. 00000 

2.00000  1 

1 

3 

0.00000 

2.30000  1 

2 

3 

1.00003 

2.60002  0 

3 

3 

2.00002 

2.70002  0 

4 

3 

3.00000 

2.79999  0 

5 

3 

■>.00000 

2.90000  C 

6 

3 

3.00000 

3.00000  1 

1 

4 

0.00000 

3.23000  1 

2 

4 

1.00002 

3.40002  0 

3 

4 

1.99993 

3.34999  0 

4 

*» 

3.00000 

3.70000  0 

5 

4 

4.00000 

3.84999  0 

6 

4 

3.00000 

■>.00000  1 

1 

5 

0.00000 

4.00000  1 

2 

5 

1.00000 

4.20000  1 

3 

5 

2.00000 

4.40000  1 

4 

5 

3.00000 

4.60000  1 

5 

5 

■>.00000 

■>.80000  1 

6 

5 

3.00000 

3.00000  1 

GRID 

1 

1 

1.0000  0.0000 

0.0000 

1 

436 

GRIO 

2 

1 

1.0000  30.0000 

c.oooo 

1 

..36 

GRID 

3 

1 

1.0000  60.0000 

0.0000 

1 

466 

GRID 

4 

1 

1.0000  90.0000 

0.0000 

1 

436 

GRID 

3 

1 

1. 0000120.0000 

0.0000 

1 

4 56 

GRID 

6 

1 

1.0000150.0000 

O.OOOQ 

1 

456 

GRID 

7 

1 

1. 0000180.0000 

0.0000 

1 

456 

GRID 

8 

1 

1.0000  0.0000 

1.0000 

1 

436 

GRID 

9 

1 

1.0000  30.0000 

1.0000 

1 

456 

G^IO 

10 

1 

1.0000  60.0000 

1.0000 

1 

h56 

GRID 

11 

1 

1.0000  90.0000 

1.0000 

1 

4 56 

Gi’ID 

12 

1 

1. 0000120.0000 

1.0000 

1 

456 

GRID 

1 3 

1 

1.0000130.0000 

1.0000 

1 

456 

GRID 

1h 

1 

1.0000180.0000 

1.0000 

1 

456 

GRID 

15 

1 

1.0000  0.0000 

2.0000 

1 

456 

GRID 

16 

1 

1.0000  30.0000 

2.0000 

1 

456 

GRID 

17 

1 

1.0000  60.0000 

2.0000 

1 

456 

GRID 

1 9 

1 

1.0000  90.0000 

2.0000 

1 

456 

GRID 

1 9 

1 

1.0000120.0000 

2.0000 

1 

456 

GRID 

20 

1 

1.0000130.0000 

2.0000 

1 

456 

GRID 

21 

1 

1.0000180.0000 

2.0000 

1 

456 

GRID 

22 

1 

1.0000  0.0000 

3.0000 

1 

456 

GRID 

23 

1 

1.0000  30.0000 

3.0000 

1 

456 

GRID 

24 

1 

1.0000  60.0000 

3.0000 

1 

456 

GRID 

23 

1 

1.0000  90.0000 

3.0000 

1 

456 

GRID 

26 

1 

1.0000120.0000 

3.0000 

1 

456 

GRID 

27 

1 

1.0000130.0000 

3.0000 

1 

456 

GRID 

28 

1 

1. 0000160.0000 

3.0000 

1 

456 
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G^IP 

29 

1 

1.0000 

0.0000 

4.0000 

1 

456 

G9ID 

30 

1 

1.0000  30.0000 

4.0000 

1 

456 

GRin 

31 

1 

1.0000  60.0000 

4.0000 

1 

456 

GRID 

32 

1 

1.0000  90.0300 

4.0000 

1 

456 

GRID 

33 

1 

1 . 0000120.0000 

4.0000 

1 

4 56 

GRID 

34 

1 

1.0000150.0000 

4.0000 

1 

456 

GRID 

35 

1 

1.0000180.0000 

4.0000 

1 

456 

GRID 

36 

1 

1. 0000 

0.0000 

5.0003 

1 

456 

GRIO 

37 

1 

1.0000  30.0000 

5. 0000 

1 

45b 

GRIP 

3d 

1 

1.0000  60.0000 

5.0000 

1 

456 

GRIO 

39 

1 

l.OOOC  90.0000 

5.0000 

1 

456 

GRIO 

40 

1 

1. 0000120.0000 

5.0000 

1 

456 

GRIO 

41 

1 

1.0000150.0000 

5.0000 

1 

41:0 

GRIO 

42 

1 

1.0000130.0000 

5.0000 

1 

456 

GRIO 

43 

1 

1.7500 

0.0000 

0.0000 

1 

4 56 

GRIO 

4-4 

1 

1.7500  30.0000 

0.0300 

1 

456 

GRIO 

45 

1 

1.7500  60.0000 

0.0000 

1 

456 

GRIO 

4 6 

1 

1.7500  90.0000 

0.0000 

1 

456 

GRID 

47 

1 

1. 7500120.0000 

0.0000 

1 

456 

GRIO 

48 

1 

1. 7500150. COOO 

0.0000 

1 

456 

GRIO 

49 

1 

1.7500180.0000 

0.0000 

1 

456 

GRID 

50 

1 

1.6000 

0.0000 

1.0000 

1 

456 

GRID 

51 

1 

1.8000  30.0000 

1.0000 

1 

456 

GRIO 

5? 

1 

1.8000  60.0000 

1.0000 

1 

456 

GRID 

5 3 

1 

1.8000  90.0000 

1.0000 

1 

456 

GRIO 

54 

1 

1.8000120.0000 

1.0000 

1 

456 

GRID 

55 

1 

1.8000150.0000 

1.0000 

1 

456 

GRIO 

56 

1 

1.8000180.0000 

1.0000 

1 

4 56 

CWEDGF 

1 

5 

50 

43 

1 

51 

44 

2 

CWFOGE 

101 

5 

51 

44 

2 

52 

45 

3 

CWEOGF 

201 

5 

52 

45 

3 

53 

46 

4 

CWPOGE 

301 

5 

53 

4b 

4 

54 

47 

K 

CWFOGP 

401 

5 

54 

47 

5 

55 

48 

fi 

CRFDGF 

50  1 

c 

55 

48 

6 

56 

49 

7 

CWEDGF 

2 

c 

1 

8 

50 

2 

9 

51 

CWEf^GF 

102 

5 

2 

9 

51 

3 

10 

5? 

CWEOGF 

20  2 

5 

3 

10 

52 

4 

11 

53 

CWEOGF 

30  2 

5 

4 

11 

53 

5 

12 

54 

CWEOGP 

40  2 

5 

5 

12 

54 

6 

13 

55 

CWEOGF 

50  2 

R 

6 

13 

55 

7 

14 

56 

GRID 

57 

1 

1.8500 

0.0000 

2.0000 

1 

456 

GRIO 

58 

1 

1.8500  30.0000 

2.0000 

1 

456 

GRIO 

59 

1 

1.8500  60.0000 

2.0000 

1 

456 

GRIO 

60 

1 

1.8500  90.0000 

2.0000 

1 

456 

GRIO 

61 

1 

1.8500120.0000 

2.0000 

1 

456 

GRID 

62 

1 

1.8500150.0000 

2.0000 

1 

456 

GRIO 

63 

1 

1.3500180.0000 

2.0000 

1 

456 

CWEOG=^ 

3 

5 

57 

50 

8 

58 

51 

9 

CWEOGF 

103 

5 

58 

51 

9 

59 

52 

10 

CWEOCP 

20  3 

5 

59 

52 

10 

60 

53 

11 

CWFOGi^ 

30  3 

5 

60 

53 

11 

61 

54 

12 

CWEOGF 

40  3 

5 

61 

54 

12 

52 

55 

13 

CWEOGF 

50  3 

5 

62 

55 

13 

63 

56 

I4 

CWEOGF 

4 

5 

8 

15 

57 

9 

16 

58 

CWEOGP 

104 

5 

9 

16 

58 

10 

17 

59 

CWFDGP 

20  4 

5 

10 

17 

59 

11 

18 

63 

CWEOGF 

30  4 

c 

11 

16 

63 

12 

19 

61 

CWFOGE 

404 

5 

12 

19 

61 

13 

20 

62 

CWEOGF 

50  4 

5 

13 

20 

62 

14 

21 

63 

GRID 

64 

1 

1.9000 

0.0000 

3.0003 

1 

456 

GRIO 

65 

1 

1.9000  30.0000 

3.0300 

1 

456 

GRIO 

66 

1 

1.9000  60.0000 

3.0003 

1 

4 56 

GRIP 

67 

1 

1.9000  90.0000 

3.0000 

1 

456 

GRID 

68 

1 

1.9000120.0000 

3.0000 

1 

456 
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GRID 

69 

1 

1.9000150.0000 

3.0000 

1 

456 

GRID 

EO 

1 

1.9000180.0000 

3.0000 

1 

456 

CMEOGE 

5 

5 

64 

57 

15 

65 

58 

16 

CMEOGE 

106 

5 

65 

58 

16 

66 

59 

17 

CMEOGE 

20  5 

5 

66 

59 

17 

67 

60 

18 

CHFOGF 

305 

5 

67 

60 

18 

68 

61 

19 

CWEDGE 

40  5 

5 

68 

61 

19 

69 

62 

20 

CUEOGE 

50  5 

5 

69 

62 

20 

70 

63 

21 

CWEPGF 

6 

5 

15 

22 

64 

16 

23 

65 

CMEOGE 

106 

5 

16 

23 

65 

17 

24 

66 

CHEOGE 

20  6 

5 

17 

24 

66 

18 

25 

57 

CUEOGE 

30  6 

5 

18 

25 

67 

19 

26 

68 

CHEOGE 

40  6 

5 

19 

26 

68 

20 

27 

69 

CHEOGE 

50  6 

5 

20 

27 

69 

21 

28 

70 

GRIO 

71 

1 

1.9500 

0.0000 

4.0000 

1 

456 

GRIO 

72 

1 

1.9500 

30.0000 

4.0000 

1 

456 

GRIO 

73 

1 

) .9500 

60.0000 

4.0000 

1 

456 

GRIO 

74 

1 

1.9500 

90.0000 

4.0000 

1 

456 

GRIO 

75 

1 

1.9500120.0000 

4.0000 

1 

456 

GRIO 

76 

1 

1.9500150.0000 

4.0000 

1 

456 

GRIO 

77 

1 

1.9500160.0000 

4.0000 

1 

456 

CHEOGE 

7 

5 

71 

64 

22 

72 

65 

23 

CHEOGE 

10  7 

5 

72 

65 

23 

73 

66 

24 

CHEOGE 

20  7 

5 

73 

66 

24 

74 

67 

25 

CHEOGE 

30  7 

5 

74 

67 

25 

75 

68 

26 

CHEOGE 

40  7 

5 

75 

68 

26 

76 

69 

27 

CHEOGE 

507 

5 

76 

69 

27 

77 

70 

28 

CHEOGE 

a 

5 

22 

29 

71 

23 

30 

72 

CHEOGE 

loa 

5 

23 

30 

72 

24 

31 

73 

CHEOGE 

20  a 

5 

24 

31 

73 

25 

32 

74 

CHEOGE 

30  a 

5 

25 

32 

7-« 

26 

33 

75 

CHEOGE 

40  a 

5 

26 

33 

75 

27 

34 

76 

CHEOGE 

50  6 

5 

27 

34 

76 

28 

35 

77 

GRIO 

76 

1 

2.0000 

0.0000 

5.0000 

1 

456 

GRIO 

79 

1 

2.0000 

30.0000 

5.0000 

1 

456 

GRIO 

ao 

1 

2.0000 

60.0000 

5.0000 

1 

456 

GRIO 

ai 

1 

2.0000 

90.0000 

5.0000 

1 

456 

GKIO 

82 

1 

2.0000120.0000 

5.0000 

1 

456 

GRIO 

83 

1 

2. 0000150.0000 

5.0000 

1 

456 

GRIO 

6^ 

1 

2.0000160.0000 

5.0000 

1 

456 

CHEOGE 

9 

5 

78 

71 

29 

79 

72 

33 

CHEOGE 

109 

5 

79 

72 

30 

80 

73 

31 

CHEOGE 

20  9 

5 

ao 

73 

31 

81 

74 

32 

CHEOGE 

30  9 

5 

81 

74 

32 

82 

75 

33 

CHEOGE 

40  9 

5 

82 

75 

33 

83 

76 

3<. 

CHEOGE 

509 

5 

83 

76 

34 

84 

77 

35 

CHEOGE 

10 

5 

29 

36 

78 

30 

37 

79 

CHEOGE 

110 

5 

30 

37 

79 

31 

38 

80 

CHEOGE 

210 

5 

31 

38 

ao 

32 

39 

81 

CHEOGE 

310 

5 

32 

39 

B1 

33 

40 

82 

CHEOGE 

410 

5 

33 

40 

82 

34 

41 

83 

CHEOGE 

510 

5 

34 

41 

83 

35 

42 

8., 

GRIO 

65 

1 

2.5000 

0.0000 

0.0000 

1 

456 

GRIO 

66 

1 

2.5000 

30.0000 

0.0000 

1 

456 

GRIO 

87 

1 

2.5000 

60.0000 

0.0000 

1 

456 

GRIO 

66 

1 

2.5000 

90.0000 

0.0000 

1 

456 

GRIO 

69 

1 

2.5000120.0000 

0.0000 

1 

456 

GRIO 

90 

1 

2.5000150.0000 

0.0000 

1 

456 

GRIO 

91 

1 

2.5000160.0000 

0.0000 

1 

456 

GRIO 

92 

1 

2.6000 

0.0000 

1.0000 

1 

456 

GRIO 

93 

1 

2.6000 

30.0000 

1.0000 

1 

456 

GRIO 

94 

1 

2.6000 

60.0000 

1.0000 

1 

456 

GRIO 

95 

1 

2.6000 

90.0000 

1.0000 

1 

456 

GRIO 

96 

1 

2.6000120.0000 

1.0000 

1 

456 

J 


B-2^ 


NSWC/WOL  TR  77-86 


GRID 

97 

1 

2.6000150.0000 

1.0000 

1 

456 

GRID 

98 

1 

2.6000180.0000 

1.0000 

1 

456 

CHFOGE 

11 

5 

92 

85 

43 

93 

86 

44 

CHEDGF 

111 

5 

93 

86 

44 

9f 

87 

•»5 

CHEOGF 

211 

5 

94 

87 

45 

96 

88 

46 

CMEOGF 

311 

5 

95 

86 

46 

96 

89 

47 

CWEDGE 

<♦11 

5 

96 

69 

47 

97 

90 

48 

CWEOGF 

511 

5 

97 

90 

48 

96 

91 

49 

CWEOGF 

12 

5 

43 

50 

92 

44 

51 

93 

CHEOGE 

112 

5 

44 

51 

93 

45 

52 

94 

CWEOGF 

212 

5 

45 

52 

94 

46 

53 

95 

CWEOGF 

312 

5 

46 

53 

95 

47 

54 

96 

CWEOGE 

412 

9 

47 

54 

96 

48 

55 

97 

CWEOGF 

512 

5 

46 

55 

97 

49 

56 

98 

GRIO 

99 

1 

2.7000 

0.0000 

2.0000 

1 

456 

GRID 

100 

1 

2.7000 

30.0000 

2.0000 

1 

456 

GRIO 

101 

1 

2.7000 

60.0000 

2.0000 

1 

456 

GRIO 

102 

1 

2.7000 

90.0000 

2.0000 

1 

456 

GRIO 

103 

1 

2.7000120.0000 

2.0000 

1 

456 

GRID 

104 

1 

2.7000150.0000 

2.0000 

1 

456 

GRID 

105 

1 

2.7000160.0000 

2.0000 

1 

456 

CWEDGE 

13 

5 

99 

92 

50 

100 

93 

51 

CWEOGE 

113 

5 

100 

93 

51 

101 

94 

52 

CWEOGF 

213 

5 

101 

94 

52 

102 

95 

53 

CWEOGE 

313 

5 

102 

95 

53 

103 

96 

54 

CWEOGF 

413 

5 

103 

96 

54 

104 

97 

55 

CWEOGE 

513 

5 

104 

97 

55 

105 

98 

56 

CWEOGE 

14 

5 

50 

57 

99 

51 

58 

100 

CWEOGE 

114 

5 

51 

58 

100 

52 

59 

101 

CWEOGF 

214 

c 

5? 

59 

101 

53 

60 

102 

CWEOGF 

314 

c 

53 

60 

102 

54 

61 

103 

CWFDGF 

414 

5 

54 

61 

103 

55 

62 

104 

CWEOGF 

514 

5 

55 

62 

104 

56 

63 

105 

GRIO 

10  6 

1 

2.6000 

0.0000 

3.0000 

1 

456 

GRIO 

107 

1 

2.8000 

30.0000 

3.0000 

1 

456 

GRIO 

108 

1 

2.8003 

60. 0000 

3.0000 

1 

456 

GRIO 

109 

1 

2.6000 

90.0000 

3.0000 

1 

456 

GRIO 

110 

1 

2.8000120.0000 

3.0000 

1 

456 

GRIO 

111 

1 

2.6000150.0000 

3.0000 

1 

456 

GRIO 

112 

1 

2.6000180.0000 

3.0000 

1 

456 

CWEOGE 

15 

c 

106 

99 

57 

107 

100 

58 

CWEOGE 

115 

5 

107 

100 

58 

108 

101 

59 

CWEOGE 

215 

5 

108 

101 

59 

109 

102 

60 

CWEDGE 

315 

5 

109 

102 

60 

110 

103 

61 

CWEOGE 

415 

5 

110 

103 

61 

111 

IOh 

62 

CWEOGE 

515 

5 

111 

104 

6? 

112 

105 

63 

CWEOGE 

16 

5 

57 

64 

106 

56 

65 

107 

CWEOGE 

116 

5 

58 

65 

107 

59 

66 

108 

CWEDGE 

216 

5 

59 

66 

108 

60 

67 

109 

CWEOGE 

316 

5 

60 

67 

109 

61 

68 

110 

CWEOGF 

416 

5 

61 

68 

110 

62 

69 

111 

CWEOGE 

516 

5 

62 

69 

111 

63 

70 

112 

GRIO 

113 

1 

2.9000 

0.0000 

4.0000 

1 

456 

GRID 

114 

1 

2.9000 

30.0000 

4.0000 

1 

456 

grid 

115 

1 

2.9000 

60.0000 

4.0000 

1 

456 

GRIO 

116 

1 

2.9000 

90.0000 

4.0000 

1 

456 

GRIO 

117 

1 

2.9000120.0000 

4.0000 

1 

456 

GRIO 

118 

1 

2.9000150.0000 

4.0000 

1 

456 

GRIO 

119 

1 

2.9000 

160.0000 

4.0000 

1 

456 

CWEOGE 

17 

5 

113 

106 

64 

114 

107 

65 

CWEOGF 

117 

5 

114 

107 

65 

115 

108 

65 

CWEOGE 

21  7 

5 

115 

106 

66 

116 

109 

67 

CWEOGE 

317 

c 

116 

109 

67 

117 

110 

63 

CWEDGE 

417 

5 

117 

110 

68 

118 

111 

6 = 

NSWC/WOL  TR  77-85 


CHEOGE 

517 

5 

110 

111 

69 

119 

112 

70 

CMEOGF 

Id 

5 

64 

71 

113 

65 

72 

ll4 

CWEDGE 

110 

5 

65 

72 

114 

66 

73 

115 

CWEDGF 

210 

5 

66 

73 

115 

67 

74 

116 

CWFOGF 

310 

5 

67 

74 

116 

60 

75 

117 

CMEOGF 

<•13 

5 

60 

75 

117 

69 

76 

110 

CWFOGF 

510 

5 

69 

7b 

110 

70 

77 

119 

GRIO 

120 

1 

3.0000 

0.0000 

5.0000 

1 

456 

GRIO 

121 

1 

3.0000 

30.0000 

5.0000 

1 

456 

GRIO 

122 

1 

3. 0000 

60.0000 

5.0000 

1 

4 56 

GRIO 

123 

1 

3.0000 

90.0000 

5.0000 

1 

456 

GRIO 

124 

1 

3. 0000120.0000 

5.0000 

1 

456 

GRID 

125 

1 

3.0000150.0000 

5.0000 

1 

456 

GRIO 

126 

1 

3.0000100.0000 

5.0000 

1 

456 

CMEOGF 

19 

R 

120 

113 

71 

121 

114 

72 

CMEOGF 

119 

5 

121 

114 

72 

122 

115 

73 

CMEOGF 

219 

5 

122 

115 

73 

123 

116 

7- 

CWEOGE 

319 

5 

123 

116 

74 

12- 

117 

75 

CMEOGE 

419 

5 

124 

117 

75 

125 

110 

76 

CWFOGF 

519 

5 

125 

110 

76 

126 

119 

77 

CMEOGF 

20 

5 

71 

70 

123 

72 

79 

121 

CWEDGF 

120 

5 

72 

79 

121 

73 

00 

122 

CMEOGF 

22  0 

5 

73 

00 

122 

74 

01 

123 

CWEOGE 

32  0 

5 

74 

01 

123 

75 

02 

124 

CMEOGF 

42  0 

5 

75 

02 

124 

76 

03 

125 

CWEDGF 

52  0 

5 

76 

03 

125 

77 

04 

126 

GRIO 

127 

1 

3.2500 

0.0000 

0.0000 

1 

-56 

GRIO 

120 

1 

3.2500 

30.0000 

0.0000 

1 

456 

GRIO 

129 

1 

3.2500 

60.0000 

0.0000 

1 

456 

GRIO 

130 

1 

3. 2500 

90.0000 

0.0000 

1 

456 

GRIO 

131 

1 

3.2500120.0000 

0.0000 

1 

-56 

GRIO 

132 

1 

3.2500150.0000 

0.0000 

1 

456 

GRIO 

133 

1 

3.2500100.0000 

0.0000 

1 

456 

GRIO 

134 

1 

3.4000 

0.0000 

1.0003 

1 

456 

GRIO 

135 

1 

3.4000 

30.0000 

1.0000 

1 

456 

GRID 

136 

1 

3.4000 

60.0000 

1.0000 

1 

456 

GRIO 

137 

1 

3.4000 

90.0000 

1.0000 

1 

456 

GRID 

133 

1 

3.4000120.0000 

1.0000 

1 

456 

GRIO 

139 

1 

3.4000150.0000 

1.0000 

1 

-56 

GRIO 

140 

1 

3.4000100.0000 

1.0000 

1 

456 

CMEOGF 

21 

c 

134 

127 

05 

135 

120 

06 

CWEDGF 

121 

5 

135 

120 

06 

136 

129 

07 

CWFOGF 

221 

5 

136 

129 

07 

137 

130 

00 

CMEOGF 

321 

5 

137 

130 

00 

130 

131 

09 

CMEOGF 

421 

5 

130 

131 

09 

139 

132 

90 

CWEDGE 

521 

5 

139 

132 

90 

140 

133 

91 

CMEOGF 

22 

5 

05 

92 

134 

06 

93 

135 

CMEOGF 

122 

5 

06 

93 

135 

67 

9- 

13t 

CMEOGF 

222 

5 

07 

94 

136 

00 

95 

137 

CWFOGF 

322 

5 

00 

95 

137 

09 

96 

130 

CMEOGF 

42  2 

5 

09 

96 

130 

90 

97 

139 

CMEOGF 

52  2 

5 

90 

97 

139 

91 

90 

140 

GRID 

141 

1 

3.5500 

o.cooo 

2.0000 

1 

456 

GRIO 

142 

1 

3.5500 

30.0000 

2.0000 

1 

456 

GRID 

143 

1 

3.5500 

60.0000 

2.0000 

1 

456 

GRID 

144 

1 

3.5500 

90.0000 

2.0000 

1 

456 

GRID 

145 

1 

3.5500120.0000 

2.0000 

1 

456 

GRIO 

146 

1 

3.55001 

.50.0000 

2.0000 

1 

456 

GRIO 

147 

1 

3.5500100.0000 

2.0000 

1 

456 

CMEOGF 

23 

5 

141 

134 

92 

142 

135 

93 

CMEOGF 

123 

5 

142 

135 

93 

143 

136 

94 

CMEOGF 

22  3 

5 

143 

136 

94 

144 

137 

95 

CMEOGF 

32  3 

5 

144 

137 

95 

145 

130 

96 

CWFOGF 

42  3 

5 

145 

130 

96 

146 

139 

97 

B-26 


NSWC/WOL  TR  77-86 


CWFOGF 

52  3 

5 

146 

139 

97 

147 

140 

99 

CMEOGF 

2<* 

5 

92 

99 

141 

93 

100 

142 

CHEOGF 

12-f 

r. 

93 

100 

142 

94 

101 

143 

CWFOGF 

22  w 

c 

94 

101 

143 

95 

102 

144 

CHEDCr 

32^ 

5 

95 

102 

144 

96 

103 

145 

CHFOGF 

42  4 

5 

96 

103 

145 

97 

104 

l4d 

CWE3GF 

52  4 

5 

97 

104 

146 

98 

105 

147 

0=10 

14(j 

1 

3.7000 

0.0000 

3.0000 

1 

456 

GRID 

149 

1 

3.7000 

30.0000 

3.0000 

1 

456 

G‘?IO 

150 

1 

3.7000 

60.0000 

3.0000 

1 

456 

GRID 

151 

1 

3.7000 

90.0000 

3.0000 

1 

456 

GRIO 

15  2 

1 

3.7000120.0000 

3.0000 

1 

456 

GRID 

153 

1 

3.7000150.0000 

3.0000 

1 

456 

GRID 

154 

1 

3.7000160.0000 

3.0000 

1 

456 

CMEOGF 

25 

5 

148 

l4l 

99 

149 

142 

100 

CWEOGE 

125 

c 

149 

142 

100 

150 

143 

101 

CWEDGE 

22  5 

5 

150 

143 

101 

151 

144 

102 

CWEDGP 

325 

5 

151 

144 

102 

152 

145 

103 

CHEOGF 

42  5 

5 

152 

145 

103 

153 

146 

10-. 

CWEOGE 

52  5 

5 

153 

146 

104 

154 

147 

105 

CWEOGF 

26 

5 

99 

106 

148 

100 

107 

149 

CWEOGE 

126 

c 

100 

107 

149 

101 

108 

150 

CWEOGF 

22  6 

c 

101 

108 

15  0 

102 

109 

151 

CWEOGF 

326 

r 

102 

109 

151 

103 

110 

152 

CWEOGE 

42  o 

V 

103 

110 

152 

104 

111 

153 

CWEOGE 

52  6 

5 

104 

111 

153 

105 

112 

154 

GRIO 

155 

1 

3.8500 

0.0000 

4.0009 

1 

456 

GRIO 

156 

1 

3.8500 

30.0000 

4.0000 

1 

456 

GRIO 

15  7 

1 

3.8500 

60.0000 

4.0000 

1 

456 

GRIO 

15a 

1 

3.8500 

90.0000 

4.0000 

1 

456 

GRIO 

159 

1 

3.  8500120.0000 

4.0009 

1 

4 56 

GRin 

160 

1 

3.8500150.0000 

4.0000 

1 

456 

GRIO 

161 

1 

3.8500180.0000 

4.0000 

1 

456 

CWEOGE 

27 

5 

155 

148 

106 

156 

149 

107 

CWEOGE 

127 

5 

156 

149 

107 

157 

150 

108 

CWEOGF 

22  7 

5 

157 

150 

103 

168 

151 

109 

CWEOGE 

327 

5 

158 

151 

109 

159 

152 

110 

CWEOGE 

427 

5 

153 

152 

110 

160 

153 

111 

CWEOG*^ 

527 

5 

160 

153 

111 

161 

154 

112 

CWEOGE 

2d 

5 

106 

113 

155 

107 

114 

156 

CWEOGE 

126 

5 

107 

ll4 

156 

108 

115 

157 

CWEOGF 

22  3 

5 

108 

115 

157 

109 

116 

153 

CWEOGF 

37  3 

c 

109 

116 

153 

110 

117 

159 

CWEOGF 

42  3 

5 

110 

117 

159 

111 

118 

160 

CWEOGE 

523 

5 

111 

118 

160 

112 

119 

161 

GRIO 

162 

1 

4. 0000 

0.0000 

5.0000 

1 

456 

GRID 

16  3 

1 

4.0000 

30.0000 

5.0003 

1 

456 

GRIO 

164 

1 

4.0000 

60.0000 

5.0000 

1 

456 

GRID 

165 

1 

4.0000 

90.0000 

5.0000 

1 

456 

GRIO 

166 

1 

4.0000120.0000 

5.0000 

1 

456 

GRIO 

167 

1 

4.0000150.0000 

5.0009 

1 

456 

GRIO 

163 

1 

4.0000180.0000 

5.0000 

1 

456 

CWEOGF 

29 

5 

162 

155 

113 

163 

156 

11- 

CWFPGE 

129 

5 

163 

156 

114 

164 

157 

115 

CWEOGF 

22  9 

5 

164 

157 

115 

165 

158 

116 

CWEOGF 

32  9 

5 

165 

158 

116 

166 

159 

117 

CWEOGE 

42  9 

5 

166 

159 

117 

167 

160 

118 

CWEOGF 

529 

5 

167 

160 

119 

168 

161 

119 

CWFOGE 

30 

5 

113 

120 

162 

114 

121 

163 

CWEOGc 

130 

5 

114 

121 

163 

115 

122 

16- 

CWEOGF 

23  3 

5 

115 

122 

164 

116 

123 

165 

CWEOGF 

330 

5 

lib 

123 

16  5 

117 

124 

166 

CWEOGF 

43  0 

5 

117 

124 

166 

118 

125 

167 

CWFOGF 

53  0 

5 

118 

125 

167 

119 

126 

168 

NSWC/WOL  TR  77-85 

GRID 

169 

1 

4. 0000 

0.0000 

0.0000 

1 

456 

GRID 

170 

1 

4.0000 

30.0000 

0.0000 

1 

456 

GRID 

171 

1 

4.0000 

60.0000 

0.0000 

1 

456 

GRID 

172 

1 

4.0000 

90.0000 

0.0000 

1 

456 

GRID 

173 

1 

4.0000120.0000 

0.0000 

1 

456 

GRID 

174 

1 

4. 0000150.0000 

0.0000 

1 

456 

GRID 

175 

1 

4.0000160.0000 

0.0000 

1 

456 

GRID 

176 

1 

4.2000 

0.0000 

1.0000 

1 

456 

GRID 

177 

1 

4.2000 

30.0000 

1.0000 

1 

456 

GRID 

178 

1 

4.2000 

60.0000 

1.0000 

1 

456 

GRID 

179 

1 

4.2000 

90.0000 

1.0000 

1 

456 

GRID 

16  0 

1 

4.2000120.0000 

1.0000 

1 

456 

GRID 

181 

1 

4.2000150.0000 

1.0000 

1 

456 

GRID 

18  2 

1 

4.2000180.0000 

1.0000 

1 

456 

CWEDGE 

31 

5 

176 

169 

127 

177 

170 

128 

CMEOGE 

131 

5 

177 

170 

128 

178 

171 

129 

CHFOGE 

231 

5 

178 

171 

129 

179 

172 

130 

CHEOGE 

331 

5 

179 

172 

130 

180 

173 

131 

CMEDGP 

431 

5 

180 

173 

131 

181 

174 

13? 

CHEOGE 

531 

5 

181 

174 

132 

182 

175 

133 

CWEDGE 

32 

5 

127 

134 

176 

128 

135 

177 

CWEDGE 

132 

5 

126 

135 

177 

129 

136 

178 

CWEDGE 

232 

5 

129 

136 

178 

130 

137 

179 

CWEDGE 

33  2 

5 

130 

137 

179 

131 

138 

180 

CWEDGE 

43  2 

5 

131 

138 

180 

132 

139 

181 

CWEDGE 

532 

5 

132 

139 

181 

133 

140 

18? 

GRID 

16  3 

1 

4.4000 

0.0000 

2.0000 

1 

456 

GRID 

16h 

1 

4.4003 

30.0000 

2.0000 

1 

456 

GRID 

185 

1 

4.4000 

60.0000 

2.0000 

1 

456 

GRID 

186 

1 

4.4000 

90.0000 

2. OOOU 

1 

456 

GRID 

187 

1 

4.4000120.0000 

2.0000 

1 

456 

GRID 

188 

1 

4. <*000150. 0000 

2.0000 

1 

456 

GRID 

189 

1 

4.4000180.0000 

2.0000 

1 

456 

CWEDGE 

33 

5 

163 

176 

13<« 

164 

177 

135 

CWEDGE 

133 

5 

164 

177 

135 

165 

178 

136 

CWEDGE 

233 

5 

165 

176 

136 

166 

179 

137 

CWEDGE 

33  3 

5 

186 

179 

137 

187 

180 

133 

CWEDGE 

433 

5 

187 

180 

138 

188 

181 

139 

CWEDGE 

533 

5 

186 

181 

139 

169 

182 

1<*0 

CWEDGE 

34 

5 

134 

141 

183 

135 

142 

184 

CWEDGE 

134 

5 

135 

142 

184 

136 

143 

185 

CWEDGE 

234 

5 

136 

143 

185 

137 

144 

186 

CWEDGE 

334 

5 

137 

144 

186 

138 

145 

187 

CWEDGE 

434 

5 

138 

145 

187 

139 

146 

188 

CWEDGE 

534 

5 

139 

146 

166 

140 

147 

189 

GRID 

190 

1 

4.6000 

0.0000 

3.0000 

1 

<«56 

GRID 

191 

1 

4.6000 

30.0000 

3.0000 

1 

456 

GRID 

192 

1 

4.6000 

60.0000 

3.0000 

1 

456 

GRID 

193 

1 

4.6000 

90.0000 

3.0000 

1 

456 

GRID 

194 

1 

4.6000120.0000 

3.0000 

1 

456 

GRID 

195 

1 

4.6000150.0000 

3.0000 

1 

456 

GRID 

19  6 

1 

4.6000180.0000 

3.0000 

1 

456 

CWEDGE 

35 

5 

190 

163 

141 

191 

184 

142 

CWEDGE 

135 

5 

191 

184 

142 

192 

185 

143 

CWEDGE 

235 

5 

192 

185 

143 

193 

186 

1 4i» 

CWEDGE 

335 

5 

193 

166 

144 

194 

187 

145 

CWEDGE 

435 

5 

194 

187 

145 

195 

188 

146 

CWEDGE 

535 

5 

195 

166 

146 

196 

189 

147 

CWEDGE 

36 

5 

141 

148 

190 

1<*2 

149 

191 

CWEDGE 

136 

5 

142 

149 

191 

1*.3 

150 

192 

CWEDGE 

236 

5 

143 

150 

192 

14‘t 

151 

193 

CWEDGE 

336 

5 

144 

151 

193 

145 

152 

194 

CWEDGE 

436 

5 

145 

152 

194 

146 

153 

195 

CWEDGE 

53  6 

5 

146 

153 

195 

1h7 

154 

196 

J 


B-28 


NSWC/WOL  TR  77-85 


PROBLEM  B-II 
VARIABLE  CROSS-SECTIONS 

This  problem  demonstrates  the  variable  cross-section  feature 
of  JIG  and  its  use  with  the  3-D  solid  wedge  elements.  Figures  B-12 
and  B-13  show  the  configuration  and  the  planned  finite  element  model 
used  in  representing  a bayonet  joint.  To  develop  the  finite  element 
model  the  joint  was  broken  into  two  sections.  Section  A the  female 
and  Section  B the  male  part.  The  I-J  mesh  used  in  defining  each 
section  is  shown  in  Figures  B-14  and  B-15.  A complete  listing  of 
the  data  input  for  each  section  is  shown  in  Figures  B-16  and  B-17. 
Figures  B-18  through  B-21  show  the  grid  point  and  element  identi- 
fication numbers  as  generated  by  JIG.  Figures  B-22  through  B-25 
gives  a structural  plot  of  the  finite  element  model  and  is  followed 
by  a listing  of  the  JIG  punched  output. 


B-31 


***  ciAMPLC’ 

2 - 

oayonft  joint 

« 

AFCT ION 

A *** 

P 

1 

1 

a 

10 

n 

1 

4 

1 

1 
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FIG.  B-16  DATA  (NPUT  PROBLEM  B-M  - SECTION  A BAYONET  JOINT. 
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FIG.  B-17  DATA  INPUT  PROBLEM  B-ll  - SECTION  B BAYONET  JOINT. 
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FIG.  B-21  GRID  POINT  AND  ELEMENT  NUMBERS  15°  TO  45°  SECTOR 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-ll  VARIABLE  CROSS  SECTION  SECTION  A 


** 

JUNCTION  INPUT  GENERATOR  PROGRAM 

(JIG) 

•••  SAMPLE  2 - BAYONET  JOINT,  SECTION  A 


NST  = 

2 

NGS  = 

1 

NFS  = 

1 

NPOP  = 

3 

MID  = 

10 

NGP  = 

0 

lOELT  = 

1 

NSECT  = 

5 

NT(  1)  = 

1 OELTZ( 

1) 

s 

o.ocoo 

NT(  2)  = 

1 DELTZ( 

2) 

= 

0. ocoo 

NOT 

S 

ICLOSE  = 

1 

OELGP  = 

30 

KK(  1)  = 

1 THETA( 

1) 

s 

o.cooo 

KK(  2)  = 

2 THETAC 

2) 

= 

15.0000 

KK(  3)  = 

4 THETAC 

3) 

= 

75.0000 

KK<  4)  = 

5 THETAC 

4> 

s 

105.0000 

KK(  5)  = 

7 THETAC 

5) 

s 

165.0000 

KK(  6)  = 

8 THETAC 

6) 

s 

160. 0000 

3ETA(  1) 

= 0.0000 

BETA!  2) 

= IB. 0000 

3ETA(  3) 

= 75.0000 

3ETA(  4) 

s 105.0000 

PFTAI  F) 

= 165.0000 

BETA(  fc) 

= 180.0000 

JB(  1)  = 

1 JEC 

11 

= 

5 

JB(  2)  = 

3 JEC 

2) 

= 

5 

JB(  3)  = 

1 JFC 

3) 

- 

5 

JBI  4)  = 

3 JFC 

4) 

5 

JB(  5)  = 

1 JEC 

5) 

= 

5 

r 
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I 

J 

Z(I>J) 

X(I,J»  COOEd 

f J» 

4 

1 

3.00000 

1.00000  1 

5 

1 

4.00000 

1.00000  1 

4 

2 

3.00000 

1.25000  1 

5 

2 

4.00000 

1.25000  1 

1 

3 

0.00000 

1.50000  1 

Z 

3 

1.00000 

1.50000  1 

3 

3 

2.00000 

1.50000  1 

4 

3 

3.00000 

1.50000  1 

5 

3 

4.00000 

1.50000  1 

1 

4 

0.00000 

1.75000  1 

Z 

4 

1.00000 

1.75000  0 

3 

4 

2.00000 

1.75001  0 

4 

4 

3.00002 

1.75002  0 

5 

4 

4.00000 

1.75000  1 

1 

5 

0.00000 

2.00000  1 

2 

5 

1.00000 

2.00000  1 

3 

5 

2.00000 

2.00000  1 

4 

c. 

3.00000 

2.00000  1 

5 

5 

4.00000 

2.00000  1 

1 

1 

1.0000  0.0000 

3.0000 

1 

456 

GRID 

2 

1 

1.0000  15.0000 

3.0000 

1 

456 

GRID 

4 

1 

1.0000  75.0000 

3.0000 

1 

456 

GRID 

c; 

1 

1. 0000105.0000 

3.0000 

1 

456 

GRID 

7 

1 

1.0000165.0000 

3.0000 

1 

456 

GRID 

i 

1 

1. ooooiao.oooo 

3.0000 

1 

456 

GRID 

9 

1 

1.0000  0.0000 

4.0000 

1 

456 

GRID 

13 

1 

1.0000  15.0000 

4.0000 

1 

456 

GRID 

12 

1 

l.QQQO  75.0000 

4.0000 

1 

456 

GRID 

1 3 

1 

1.0000105.0000 

4.0000 

1 

456 

GRIP 

15 

1 

1.0000165.0000 

4.0000 

1 

456 

GRID 

16 

1 

1.0000180.0000 

4.0003 

1 

456 

GRIP 

17 

1 

1.2500  0.0000 

3.0000 

1 

456 

GRID 

16 

1 

1.2500  15.0000 

3.0000 

1 

456 

GRID 

23 

1 

1.2500  75.0000 

3.0000 

1 

456 

GRID 

21 

1 

1. 2500105.0000 

3.0003 

1 

456 

GRID 

23 

1 

1.2500165.0000 

3.0000 

1 

456 

GRID 

24 

1 

1.2500180.0000 

3.0000 

1 

456 

GRID 

25 

1 

1.2500  0.0000 

4.0000 

1 

456 

GRID 

26 

1 

1.2500  15.0000 

4.0000 

1 

456 

G^ID 

26 

1 

1.2500  75.0000 

4.0000 

1 

456 

GRID 

29 

1 

1.2500105.0000 

4.0000 

1 

4 56 

GRID 

31 

1 

1.2500165.0000 

4.0000 

1 

456 

GRID 

32 

1 

1.2500180.0000 

4.0003 

1 

456 

CWEDGR 

1 

10 

25  17 

1 

26 

18 

CWEPGF 

91 

10 

28  20 

4 

29 

21 

CHEDGF 

161 

10 

31  23 

7 

32 

24 

CWFPGF 

? 

10 

1 9 

25 

2 

10 

CHFOGF 

92 

10 

4 12 

28 

5 

13 
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162 

10 

7 15 

31 

8 

16 

GRID 

33 

1 

1.5000  0.0000 

0.0000 

1 

456 

GRID 

34 

1 

1.5000  15.0000 

0.0000 

1 

456 

GRID 

35 

1 

1.5000  45.0000 

0.0009 

1 

456 

GRID 

36 

1 

1.5000  75.0000 

0.0000 

1 

456 

GRID 

37 

1 

1.5000105.0000 

0.0000 

1 

456 

GRID 

36 

1 

1.5000135.0000 

0.0000 

1 

456 

GRID 

39 

1 

1.5000165.0000 

0.0000 

1 

456 

GRID 

40 

1 

1.5000160.0000 

0.0000 

1 

456 

GRID 

4 1 

1 

1.5000  0.0000 

1.0000 

1 

456 
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GRID 

42 

1 

1.5000  15.0000 

1.0000 

1 

456 

GRID 

43 

1 

1.5000  45.0000 

1.0000 

1 

456 

GRID 

44 

1 

1.5000  75.0000 

1.0000 

1 

456 

GRID 

45 

1 

1.5000105.0000 

1.0000 

1 

456 

GRID 

46 

1 

1.5000135.0000 

1.0000 

1 

456 

GRID 

47 

1 

1.5000165.0000 

1.0000 

1 

456 

GRID 

43 

1 

1.5000180.0000 

1.0000 

1 

456 

GRID 

49 

1 

1.5000 

0.0000 

2.0000 

1 

456 

GRID 

50 

1 

1.5000  15.0000 

2.0000 

1 

456 

GRID 

51 

1 

1.5000  45.0000 

2.0000 

1 

456 

GRID 

52 

1 

1.5000  75.0000 

2.0000 

1 

456 

GRID 

53 

1 

1.5000105.0000 

2.0000 

1 

456 

GRID 

54 

1 

1.5000135.0000 

2.0000 

1 

456 

GRID 

55 

1 

1.5000165.0000 

2.0000 

1 

456 

GRID 

56 

1 

1.5000180.0000 

2.0000 

1 

456 

GRID 

57 

1 

1.5000 

0.0000 

3.0000 

1 

456 

GRID 

53 

1 

1.5000  15.0000 

3.0000 

1 

456 

GRID 

59 

1 

1.5000  45.0000 

3.0000 

1 

456 

GRID 

60 

1 

1.5000  75.0000 

3.0000 

1 

456 

GRID 

61 

1 

1.5000105.0000 

3.0000 

1 

456 

GRID 

62 

1 

1.5000135.0000 

3.0000 

1 

456 

GRID 

63 

1 

1.5000165.0000 

3.0000 

1 

456 

GRID 

64 

1 

1.5000180.0000 

3.0000 

1 

456 

GRID 

65 

1 

1.5000 

0.0000 

4.0000 

1 

456 

GRID 

66 

1 

1.5000  15.0000 

4.0000 

1 

456 

GRID 

67 

1 

1.5000  45.0000 

4.0000 

1 

456 

GRID 

68 

1 

1.5000  75.0000 

4.0000 

1 

456 

GRID 

69 

1 

1.5000105.0000 

4.0000 

1 

4 56 

GRID 

70 

1 

1.5000135.0000 

4.0000 

1 

456 

GRID 

71 

1 

1.5000165.0000 

4.0000 

1 

456 

GRID 

72 

1 

1.5000180.0000 

4.0000 

1 

456 

CHEOGE 

3 

10 

65 

57 

17 

66 

58 

18 

CWEDGE 

93 

10 

68 

60 

20 

69 

61 

21 

CMEOGE 

18  3 

10 

71 

63 

23 

72 

64 

24 

CWEDGE 

4 

10 

17 

25 

65 

18 

26 

65 

CWEDGE 

94 

10 

20 

26 

68 

21 

29 

69 

CWEDGE 

184 

10 

23 

31 

71 

24 

32 

72 

GRID 

73 

1 

1.7500 

0.0000 

0.0000 

1 

456 

GRID 

74 

1 

1.7500  15.0000 

0.0000 

1 

456 

GRID 

75 

1 

1.7500  45.0000 

0.0000 

1 

456 

GRID 

76 

1 

1.7500  75.0000 

0.0000 

1 

456 

GRID 

77 

1 

1.7500105.0000 

0.0000 

1 

456 

GRID 

78 

1 

1.7500135.0000 

0.0000 

1 

456 

GRID 

79 

1 

1.7500165.0000 

0.0000 

1 

456 

GRID 

30 

1 

1. 7500180.0000 

0.0000 

1 

456 

GRID 

81 

1 

1.7500 

0.0000 

1.0000 

1 

456 

GRID 

82 

1 

1.7500  15.0000 

1.0000 

1 

456 

GRID 

83 

1 

1.7500  45.0000 

1.0000 

1 

456 

GRID 

84 

1 

1.7500  75.0000 

1.0000 

1 

456 

GRID 

85 

1 

1.7500105.0000 

1.0000 

1 

456 

GRID 

86 

1 

1.7500135.0000 

1.0000 

1 

466 

GRID 

87 

1 

1.7500165.0000 

1.0000 

1 

456 

GRID 

88 

1 

1.7500180.0000 

1.0000 

1 

456 

CWEDGE 
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10 

81 

73 

33 

82 

74 

34 

CWEDGE 
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10 

82 

74 

34 

83 

75 

35 
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83 

75 

35 

84 

76 

36 

CWEDGE 
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10 

64 

76 

36 

85 

77 

37 

CWEDGE 
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10 

85 

77 

37 

86 

78 

38 

CWEDGE 

155 

10 

86 

78 

38 

87 

79 

39 

CWEDGE 

185 

10 

87 

79 

39 

86 

80 

' 40 

CWEDGE 

6 

10 

33 

41 

81 

34 

42 

82 

CWEDGE 

36 

10 

34 

42 

82 

35 

43 

83 

CWEDGE 

66 

10 

35 

43 

83 

3b 

44 

34 

CWEDGE 

96 

10 

36 

44 

84 

37 

45 

85 
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CHFDGF 

126 

10  , 

37 

45 

85 

38 

46 

86 

CWEDGF 

156 

10 

36 

46 

86 

39 

47 

87 

CMEDG*^ 

186 

10 

39 

47 

87 

40 

48 

88 

GRID 

89 

1 

1.7500 

0.0000 

2.0000 

1 

456 

GRID 

90 

1 

1.7500 

15.0000 

2.0000 

1 

456 

GRID 

91 

1 

1.7500 

45.0000 

2.0000 

1 

456 

GRID 

92 

1 

1.7500 

75.0000 

2.0000 

1 

456 

GRID 

93 

1 

1.7500105.0000 

2.0000 

1 

456 

GRID 

9h 

1 

1.7500135.0000 

2.0000 

1 

456 

GRID 

95 

1 

1.7500165.0000 

2.0000 

1 

456 

GRID 

96 

1 

1.7500180.0000 

2.0000 

1 

456 

CHEDGF 

7 

10 

89 

61 

41 

90 

82 

42 

CWEOGF 

37 

10 

90 

82 

42 

91 

83 

43 

CWEDGE 

67 

10 

91 

83 

43 

92 

84 

44 

CHEDGF 

97 

10 

92 

84 

44 

93 

85 

45 

CHEDGF 

127 

10 

93 

85 

45 

94 

86 

46 

CHEDGF 

157 

10 

94 

86 

46 

95 

87 

47 

CHEDGF 

167 

10 

95 

87 

47 

96 

88 

46 

CHEDGE 

8 

10 

4l 

49 

69 

42 

50 

30 

CHFOGE 

38 

10 

42 

50 

90 

43 

51 

91 

CHFDGF 

69 

10 

43 

51 

91 

44 

52 

92 

CHEDGF 

98 

10 

44 

52 

92 

45 

53 

93 

CHEDGF 

128 

10 

45 

53 

93 

46 

54 

94 

CHFDGF 

158 

10 

46 

54 

94 

47 

55 

95 

CHEDGF 

188 

10 

47 

55 

95 

48 

56 

96 

GRID 

97 

1 

1.7500 

0.0000 

3.0000 

1 

456 

GRID 

98 

1 

1.7500 

15.0000 

3.0000 

1 

456 

GRID 

99 

1 

1.7500 

45.0000 

3. 0000 

1 

45b 

GRID 

100 

1 

1.7500 

75.0000 

3.0000 

1 

456 

GRID 

10  1 

1 

1.7500105.0000 

3.0000 

1 

456 

GRID 

102 

1 

1.7500135.0000 

3.0000 

1 

456 

GRID 

10  3 

1 

1.7500165.0000 

3.0003 

1 

456 

GRID 

IOh 

1 

.1.7500180.00  00 

3. 0000 

1 

456 

CHEDGE 

9 

10 

97 

89 

49 

98 

90 

50 

CHFDGF- 

39 

10 

98 

90 

50 

99 

91 

51 

CHEDG»' 

69 

10 

99 

91 

51 

100 

92 

52 

CHFOGP 

99 

10 

100 

92 

52 

101 

93 

53 

CHEDGF 

129 

10 

101 

93 

53 

102 

94 

5*. 

CHFDGF 

159 

10 

102 

94 

54 

103 

95 

55 

CHEDGE 

189 

10 

103 

95 

55 

104 

96 

56 

CHEDGF 

1 0 

10 

49 

57 

97 

50 

58 

98 

CHEDGF 

40 

10 

50 

58 

93 

51 

59 

99 

CHEDGF 

70 

10 

51 

59 

99 

52 

60 

100 

CHEDGE 

103 

10 

52 

60 

100 

53 

61 

101 

CHEDGF 

130 

10 

53 

61 

101 

54 

62 

102 

CHEDGF 

160 

10 

54 

62 

102 

55 

63 

103 

CHEDGE 

190 

10 

55 

63 

103 

5b 

64 

104 

GRID 

105 

1 

1.7500 

0.0000 

4.0000 

1 

456 

GRID 

106 

1 

1. 7500 

15.0000 

4.0000 

1 

456 

GRID 

107 

1 

1.7500 

45.0000 

4.0000 

1 

456 

GRID 

10  8 

1 

1.7500 

75.0000 

4.0000 

1 

456 

GRID 

109 

1 

1.7500105.0000 

4.0000 

1 

456 

GRID 

110 

1 

1.7500135.0000 

4.0000 

1 

456 

GRID 

111 

1 

1.7500165.0000 

4.0000 

1 

456 

GRID 

112 

1 

1.7500180.0000 

4.0000 

1 

456 

CHEDGF 

11 

10 

105 

97 

57 

106 

98 

58 

CHEDGF 

41 

10 

106 

98 

58 

107 

99 

59 

CHEDGE 

71 

10 

107 

99 

59 

108 

100 

60 

CHEDGE 

101 

10 

108 

100 

60 

109 

101 

61 

CHEDGE 

131 

10 

109 

101 

61 

110 

102 

62 

CHEDGF 

161 

10 

110 

102 

62 

111 

103 

63 

CHEDGE 

191 

10 

111 

103 

63 

112 

104 

64 

CHEDGE 

12 

10 

57 

65 

105 

58 

66 

106 

CHEDGE 

42 

10 

58 

66 

106 

59 

67 

107 
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CMEOGF 

72 

10 

59 

67 

107 

60 

68 

108 

CHFOGF 

10  2 

10 

60 

68 

108 

61 

69 

109 

CMEDGE 

132 

10 

61 

69 

109 

62 

70 

110 

CWEOGE 

162 

10 

62 

70 

110 

63 

71 

111 

CWEOGE 

192 

10 

63 

71 

111 

64 

72 

112 

GRID 

113 

1 

2.0000 

0.0000 

0.0000 

1 

456 

GRID 

in* 

1 

2.0000 

15.0000 

0.0000 

1 

456 

GRID 

115 

1 

2.0000 

45.0000 

0.0000 

1 

456 

GRID 

116 

1 

2.0000 

75.0000 

0.0000 

1 

456 

GRID 

117 

1 

2. 0000105.0000 

0.0000 

1 

456 

GRID 

118 

1 

2.0000135.0000 

0.0000 

1 

456 

GRID 

119 

1 

2.0000165.0000 

0.0000 

1 

456 

GRID 

120 

1 

2. 0000180.0000 

0.0000 

1 

456 

GRID 

121 

1 

2.0000 

0.0000 

1.0000 

1 

456 

GRID 

122 

1 

2.0000 

15.0000 

1.0000 

1 

456 

GRID 

123 

1 

2.0000 

45.0000 

1.0000 

1 

456 

GRID 

124 

1 

2.0000 

75.0000 

1.0000 

1 

456 

GRID 

125 

1 

2. 0000105.0000 

1.0000 

1 

456 

GRID 

126 

1 

2.0000135.0000 

1.0000 

1 

456 

GRID 

127 

1 

2.0000165.0000 

1.0000 

1 

456 

GRID 

123 

1 

2.0000180.0000 

1.0000 

1 

456 

CHEDGE 

13 

10 

121 

113 

73 

122 

11'* 

74 

CWEDGF 

43 

10 

122 

114 

74 

123 

115 

75 

CMEDGE 

73 

10 

123 

115 

75 

124 

llo 

7c 

CWEOGE 

10  3 

10 

124 

116 

76 

125 

117 

jy 

CHFOGF 

133 

10 

125 

117 

77 

126 

118 

78 

CWEDGF 

163 

10 

126 

118 

78 

127 

119 

79 

CWEOGE 

193 

10 

127 

119 

79 

128 

120 

80 

CWEDGF 

14 

10 

73 

81 

121 

74 

82 

12? 

CWEOGE 

44 

10 

74 

82 

122 

75 

83 

123 

CWEOGE 

74 

10 

75 

83 

123 

76 

84 

124 

CWEOGE 

104 

10 

76 

84 

124 

77 

85 

125 

CWEOGE 

134 

10 

77 

85 

125 

78 

86 

126 

CWEOGE 

164 

10 

78 

86 

126 

79 

87 

127 

CWEOGE 

194 

10 

79 

87 

127 

80 

88 

128 

GRID 

129 

1 

2.0000 

0.0000 

2.0000 

1 

456 

GRID 

130 

1 

2.0000 

15.0000 

2.0000 

1 

456 

GRID 

131 

1 

2.0000 

45.0000 

2.0000 

1 

456 

GRID 

132 

1 

2.0000 

75.0000 

2.0000 

1 

456 

GRID 

133 

1 

2.0000105.0000 

2.0000 

1 

456 

GRID 

134 

1 

2. 0000135.0000 

2.0000 

1 

456 

GRID 

135 

1 

2. 0000165.0000 

2.0000 

1 

456 

GRID 

136 

1 

2.0000180.0000 

2.0000 

1 

456 

CWEOGE 

15 

10 

129 

121 

81 

130 

122 

8? 

CWEOGE 

45 

10 

130 

122 

82 

131 

123 

83 

CWEOGE 

75 

10 

131 

123 

83 

132 

124 

84 

CWEOGE 

105 

10 

132 

124 

8t 

133 

125 

85 

CWEOGE 

135 

10 

133 

125 

85 

134 

126 

86 

CWEOGE 

165 

10 

134 

126 

86 

135 

127 

87 

CWEOGE 

195 

10 

135 

127 

87 

136 

128 

38 

CWEO GE 

16 

10 

81 

89 

129 

82 

90 

130 

CWEOGE 

46 

10 

82 

90 

130 

83 

91 

131 

CWEOGE 

76 

10 

83 

91 

131 

84 

92 

132 

CWEDGF 

106 

10 

84 

92 

132 

85 

93 

133 

CWEOGE 

136 

10 

85 

93 

133 

86 

94 

134 

CWEDGF 

166 

10 

86 

94 

134 

87 

95 

135 

CWEDGF 

196 

10 

87 

95 

135 

88 

96 

136 

GRID 

137 

1 

2.0000 

0.0000 

3.0000 

1 

456 

GRID 

138 

1 

2.0000 

15.0000 

3.0000 

1 

456 

GRID 

139 

1 

2.0000 

45.0000 

3.0000 

1 

456 

GRID 

14  0 

1 

2.0000 

75.0000 

3.0000 

1 

456 

GRID 

141 

1 

2. 0000105.0000 

3.0000 

1 

456 

GRID 

142 

1 

2. 0000135.0000 

3.0000 

1 

456 

GRID 

143 

1 

2. 0000165.0000 

3.0000 

1 

456 
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GRID 

1<*4 

1 

2.0000100.0000 

3.0000 

1 

456 

CHEOGB 

17 

10 

137 

129 

89 

138 

130 

90 

CUEOGF 

47 

10 

138 

130 

90 

139 

131 

91 

CWEDGE 

77 

10 

139 

131 

91 

140 

132 

92 

CWEDGE 

107 

10 

140 

132 

92 

141 

133 

93 

CWEDGE 

137 

10 

141 

133 

93 

142 

134 

94 

CWEDGE 

167 

10 

142 

134 

94 

143 

135 

95 

CWEDGE 

197 

10 

143 

135 

95 

144 

136 

96 

CWFDGP 

18 

10 

89 

97 

137 

90 

98 

138 

CWEDGE 

48 

10 

90 

98 

138 

91 

99 

139 

CWFDGF 

78 

10 

91 

99 

139 

92 

100 

140 

CWEDGE 

108 

10 

92 

100 

140 

93 

101 

141 

CWFDGF 

138 

10 

93 

101 

141 

94 

102 

142 

CWEDGF 

168 

10 

94 

102 

142 

95 

103 

143 

CWEDGE 

198 

10 

95 

103 

143 

96 

104 

144 

GBIO 

145 

1 

2.0000 

0.0000 

4.0000 

1 

456 

GRID 

146 

1 

2.0000 

15.0000 

4.0000 

1 

456 

GRID 

147 

1 

2.0000 

45.0000 

4.0000 

1 

456 

GRID 

148 

1 

2.0000 

75.0000 

4.0000 

1 

456 

GRID 

149 

1 

2.0000105.0000 

4.0000 

1 

456 

GRID 

150 

1 

2.0000135.0000 

4.0000 

1 

456 

GRID 

151 

1 

2. 0000165.0000 

4.0000 

1 

456 

GRID 

152 

1 

2.0000180.0000 

4.0000 

1 

456 

CWEDGE 

19 

10 

145 

137 

97 

146 

138 

98 

CWFDGF 

49 

10 

146 

136 

98 

147 

139 

99 

CWEDGE 

79 

10 

147 

139 

99 

148 

140 

100 

CWEDGF 

109 

10 

148 

140 

100 

149 

141 

101 

CWEDGE 

139 

10 

149 

141 

101 

150 

142 

102 

CWEDGE 

16  9 

10 

150 

142 

102 

151 

143 

103 

CWEDGE 

199 

10 

151 

143 

103 

152 

144 

104 

CWFDGF 

20 

10 

97 

105 

145 

98 

106 

146 

CWEDGE 

50 

10 

98 

106 

146 

99 

107 

147 

CWEDGE 

80 

10 

99 

107 

147 

100 

108 

149 

CWEDGE 

110 

10 

100 

108 

148 

101 

109 

149 

CWEDGE 

140 

10 

101 

109 

149 

102 

110 

150 

CWEDGE 

170 

10 

102 

110 

150 

103 

111 

151 

CWEDGE 

200 

10 

10  3 

111 

151 

104 

112 

152 

I 

J 

Z(I,J) 

X(I,J)  CODEd 

. J) 

1 

1 

4.00000 

1.00000  1 

2 

1 

4.50000 

1.00000  1 

3 

1 

3.00000 

1.00000  1 

1 

2 

4.00000 

1.25000  1 

2 

2 

4.50000 

1.25000  1 

3 

2 

5.03000 

1.25000  1 

2 

3 

4.50000 

1.50000  1 

3 

3 

5.00000 

1.50000  1 

GRID 

153 

1 

1.0000  0.0000 

4.5000 

1 

456 

GRID 

154 

1 

1.0000  15.0000 

4.5000 

1 

456 

GRID 

156 

1 

1.0000  75.0000 

4.5000 

1 

456 

GRID 

15  7 

1 

1.0000105.0000 

4.5000 

1 

456 

GRID 

159 

1 

1.0000165.0000 

4.5000 

1 

456 

GRID 

160 

1 

1.0000160.0000 

4.5000 

1 

456 

GRID 

161 

1 

1.0000  0.0000 

5.0000 

1 

456 

GRID 

162 

1 

1.0000  15.0000 

5.0000 

1 

456 

GRID 

164 

1 

1.0000  75.0000 

5.0000 

1 

456 

GRID 

165 

1 

1. 0000105.0000 

5.0000 

1 

456 

GRID 

167 

1 

1.0000165.0000 

5.0000 

1 

456 

GRID 

168 

1 

1. 0000180.0000 

5.0000 

1 

456 

GRID 

169 

1 

1.2500  0.0000 

4.5000 

1 

456 

GRID 

170 

1 

1.2500  15.0000 

4.5000 

1 

456 
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GRID 

172 

1 

1.2500 

75.0000 

4.5000 

1 

456 

GRID 

173 

1 

1. 2500105.0000 

4.5000 

1 

456 

GRID 

175 

1 

1.2500165.0000 

4.5000 

1 

456 

GRID 

176 

1 

1.2500180.0000 

4.5000 

1 

456 

CNEOGE 

21 

10 

169 

25 

9 

170 

26 

10 

CHEOGE 

111 

10 

172 

28 

12 

173 

29 

13 

CHEOGE 

201 

10 

175 

31 

15 

176 

32 

16 

CMEOGE 

22 

10 

9 

153 

169 

10 

154 

170 

CHEOGE 

112 

10 

12 

156 

172 

13 

157 

173 

CHEOGE 

20  2 

10 

15 

159 

175 

16 

160 

176 

GRIO 

177 

1 

1.2500 

0.0000 

5.0000 

1 

456 

GRIO 

178 

1 

1.2500 

15.0000 

5.0000 

1 

456 

GRIO 

180 

1 

1.2500 

75.0000 

5.0000 

1 

456 

GRIO 

181 

1 

1.2500 

105.0000 

5.0000 

1 

456 

GRIO 

183 

1 

1.2500 

165.0000 

5.0000 

1 

456 

GRIO 

184 

1 

1.2500 

180.0000 

5.0000 

1 

456 

CHEOGE 

23 

10 

177 

169 

153 

178 

170 

15h 

CHEOGE 

11  3 

10 

180 

172 

156 

181 

173 

157 

CHEOGE 

20  3 

10 

183 

175 

159 

184 

176 

160 

CHEOGE 

24 

10 

153 

161 

177 

154 

162 

178 

CHEOGE 

114 

10 

156 

164 

180 

157 

165 

181 

CHEOGE 

20  4 

10 

159 

167 

183 

160 

168 

184 

GRID 

185 

1 

1.5000 

0.0000 

4.5000 

1 

456 

GRIO 

186 

1 

1.5000 

15.0000 

4.5000 

1 

456 

GRIO 

188 

1 

1.5000 

75.0000 

4.5000 

1 

456 

GRID 

189 

1 

1.5000 

105.0000 

4.5000 

1 

456 

GRIO 

191 

1 

1.5000165.0000 

4.5000 

1 

456 

GRID 

19  2 

1 

1.5000100.0000 

4.5000 

1 

456 

GRIO 

193 

1 

1.5000 

0.0000 

5.0000 

1 

456 

GRIO 

194 

1 

1.5000 

15.0000 

5.0000 

1 

456 

GRIO 

196 

1 

1.5000 

75.0000 

5.0000 

1 

456 

GRIO 

197 

1 

1.5000105.0000 

5.0000 

1 

456 

GRID 

199 

1 

1.5000165.0000 

5.0000 

1 

456 

GRIO 

20  0 

1 

1.5000180.0000 

5.0000 

1 

456 

CHEOGE 

25 

10 

193 

185 

169 

194 

186 

17C 

CHEOGE 

115 

10 

196 

188 

172 

197 

189 

173 

CHEOGE 

20  5 

10 

199 

191 

175 

200 

192 

176 

CHEOGE 

26 

10 

169 

177 

193 

170 

178 

194 

CHEOGE 

116 

10 

172 

180 

196 

173 

181 

197 

CHEOGE 

20  6 

10 

175 

183 

199 

176 

184 

200 
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FIG.  B-25  NASTRAN  STRUCTURAL  PLOT  - ROTATED  VIEW  - SECTION  B 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-ll  VARIABLE  CROSS  SECTIONS  SECTION  B 


*•  ** 

•*  JUNCTION  INPUT  GENEPATOP  PPOGRAM  (JIG*  •• 

*•  •• 


I 

I 

i 

I 


I 

?' 

\ 


***  SAPPLE  2 - OAYONET 

JOINT,  SECTION  p 

NST  = 

1 

NGS  = 

2C1 

NES  = 

250 

NPOP  = 
MIC!  = 

10 

3 

NGP  = 
lOELT  = 

G 

1 

MSECT  = 

5 

NT(  1*  = 

1 

0ELT7( 

1* 

s 

0.0000 

NOT  = 
ICLOSE  = 

5 

4 

OELGP  = 

30 

KK(  1)  = 

1 

THETA ( 

1) 

= 

0.0000 

KK(  2*  = 

2 

THETA( 

2) 

= 

15. 0000 

KKI  3)  = 

4 

THETA < 

3* 

= 

75.0000 

YKf  4*  = 

5 

THETA ( 

4) 

= 

105. GOOD 

KK(  F*  = 

7 

THETA( 

5) 

165. 0000 

KK(  ei  = 

8 

THETA { 

61 

= 

180. OCOO 

BETA(  1) 

= 

0.0000 

PETA(  2* 

s 

15.  0300 

PETA(  3) 

= 

75.0303 

PETAI  4* 

= 

105.0003 

RETAC  5* 

= 

165.0:00 

'1ETA(  6* 

= 

180.0000 

JP(  1>  = 

1 

JEI 

1* 

= 

4 

je(  2*  = 

2 

JE< 

2) 

= 

4 

JP(  3*  = 

1 

JE( 

3) 

= 

4 

J«(  4)  = 

2 

JEI 

4> 

= 

4 

JR(  51  = 

1 

JEI 

5* 

= 

4 

B-53 


I 
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r 


I 

J 

7(T ,J» 

X(T,J>  COOEd 

1 

1 

4.C :ooj 

1.253CJ  1 

2 

1 

4 • 6 3 C u J 

1.25300  1 

1 

2 

4 • C 3 C C J 

l.RJCCO  1 

2 

2 

4.G0C0J 

1.5Q000  1 

T 

2 

5.375C3 

1.50003  1 

k 

2 

6. 25C0J 

1.53003  1 

6 

2 

7.12EC3 

1.5000J  1 

6 

2 

« . 20C00 

1.5CC00  1 

1 

3 

4.t jCC3 

1.75C00  1 

2 

3 

4.‘'Gu26 

1.75001  0 

j 

3 

G.50096 

1.75C00  0 

4 

3 

6. 32R55 

1.74999  0 

5 

•t 

^.16345 

1.75002  3 

6 

3 

H.0CG03 

1.76000  1 

1 

4 

4 . u ii  C CO 

2.00CCO  1 

2 

4 

4.  <»0C03 

2.0CGCJ  1 

3 

4 

6.60C03 

2.0CGOC  1 

4 

4 

6.40C:3 

2.3CC0C  1 

5 

4 

7.2CCuC 

2.00000  1 

6 

4 

« . : 3 C C 3 

2.00003  1 

GRID 

231  1 

1.2500  3.0000 

4.C0QC 

1 

4 56 

GRIG 

23  2 1 

1.26CG  15.0300 

4. COCO 

1 

456 

G=n 

234  1 

1.250C  75.3000 

4.  00  OG 

1 

456 

GRlf' 

? ic  1 

1.25C0106.3000 

4.00CC 

1 

456 

GRIP 

237  1 

1.2500165.0000 

4.0000 

1 

456 

GRTC 

2C‘»  1 

1.250O16C.O000 

4.0000 

1 

4 56 

GRIP 

23  9 1 

1.2500  D.OOOG 

4.50  30 

1 

4 56 

GRIC 

213  1 

1.2500  15.0003 

4.5000 

1 

456 

GRli^ 

212 

1.25C3  75.0300 

4. 50  00 

1 

456 

GRIG 

213  .1 

1. 2500  10  5.00  30 

4.5030 

1 

456 

GRIC 

21G 

1.2500  165.03  33 

4.50  OC 

1 

456 

GPIC 

216  1 

1.25C0160.0300 

4.50  30 

1 

4 56 

GRIG 

21-^  1 

1.5000  0.0033 

4.  00  OC 

1 

456 

GRIP 

216  1 

1.5300  15.0000 

4.0000 

1 

4 56 

GRIG 

219  1 

1.53CC  45.0000 

4.0000 

1 

4 56 

GRIC 

22  3 1 

1.5000  76.0000 

4.0000 

1 

4 56 

GRIP 

221  1 

1.5300135.0000 

4.0000 

1 

4 56 

•■RIG 

222  1 

1.5C:0135.0000 

4. 00  00 

1 

4 56 

GRIP 

22 » 1 

1.50  CO  165. 0 3 00 

4. 00  00 

1 

4 56 

GRIG 

224  1 

1.5C0C18C.O03C 

4.  00  00 

1 

4 56 

GRIG 

22P  1 

1.50CC  C.3C0. 

4.5000 

1 

4 56 

GRIP 

226  1 

1.500C  15.0000 

4. 5000 

1 

456 

GRIP 

22‘’  1 

1.5330  45.3300 

4.50  00 

1 

456 

GRIG 

226  1 

1.5030  75.0030 

4.50CC 

1 

4 56 

GRIP 

22P  1 

1. 5000135. ooo; 

4.500C 

1 

4 56 

GRIG 

23  3 1 

1.5000135.0000 

4.5030 

1 

4 56 

GRIG 

231  1 

1.5003165.0333 

4.500C 

1 

456 

GRIP 

232  1 

1.53 vC 160. 0003 

4.50  00 

1 

4 56 

P4€CG" 

253  13 

225  217 

201 

226 

216 

C4EGGR 

’43  1 : 

226  220 

204 

229 

221 

CkPPG? 

43.  1 : 

231  223 

2C7 

232 

2 24 

CWEGG" 

251  1' 

201  239 

225 

202 

210 

PWEGGG 

341  13 

2C4  212 

226 

205 

213 

rwECGG 

431  13 

207  215 

2 31 

206 

216 

GR  IG 

233  1 

1.53C0  0.0300 

5.3750 

1 

4 56 

GRIP 

234  1 

1.530i>  15.30  00 

5. 3750 

1 

456 

GRIP 

236  1 

1.5C00  45.0000 

5.3750 

1 

456 

GRIP 

236  1 

1.500e  75.gc0C 

5.3750 

1 

456 

702 

20'^ 

2'i’i 

226 

220 

222 
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ri;iD 

23’ 

1_ 

1.5000135.3333 

5.3750 

1 

4 56 

rcTC 

aT'' 

1 

1.53CI135.0303 

5.3750 

1 

4 56 

rsin 

23'3 

1 

1.5300  166.00  0 3 

5.3750 

1 

4 56 

GQln 

■’k' 

1 

1.5POC153.0000 

5.3750 

1 

4 56 

ZUi 

1 

1.500C 

0.0030 

6.250C 

1 

4 56 

r>;ir 

2UZ 

4 

1.5300  15.0030 

6.2500 

1 

4 56 

PPin 

?4’ 

1 

l.'-OOC  45.00  30 

6.2500 

1 

4 56 

GPir 

244 

1.50C0  75.030: 

6. 2500 

1 

4 56 

C-KIf' 

240 

1 

1.5000135.0300 

6.2500 

1 

456 

GRTC 

24f) 

1 

1.500C135.0003 

6.2500 

1 

4 56 

GPI'’ 

2t*7 

1 

1.503C165.0C  03 

6.2500 

1 

456 

GPin 

24S 

1 

1.503:153.0303 

6.2500 

1 

4 56 

GRTO 

240 

< 

1 • *5  u 0 u 

C.OO  00 

7.125C 

1 

456 

rfiTO 

20J 

1 

1.53:0  15.0000 

7.1260 

1 

4 56 

GRIC 

251 

1 

1.5003  45.0003 

7.1250 

1 

456 

GRK 

202 

1 

1.5000  75.0000 

7.1250 

1 

456 

GRIG 

253 

4 

i. 

1.5003135.0000 

7. 1250 

1 

456 

GRTO 

254 

4 

1.5000135.0003 

7.1250 

1 

4 56 

GKTC 

2 5G 

1.5CUG165.03  03 

7. 125C 

1 

4 56 

GRIP 

256 

1 

1.50uC180.QC30 

7.1250 

1 

4 56 

GRTO 

25’ 

1 

1.5000 

0.30  30 

e.OOGO 

1 

4 56 

G=TO 

25« 

4 

1.5030  15.0303 

e.oo  00 

1 

4 56 

f^RTC 

260 

i 
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PROBLEM  B-III 
REPEATED  SECTION 

The  following  problem  demonstrates  the  JIG  repeated  section 
option.  Figure  B-26  shows  the  planned  finite  element  model  and  con- 
figuration of  one  half  of  a threaded  joint.  This  model  consists 
of  two  sections.  The  first  represents  the  skin,  the  second  the 
threads.  Since  the  threads  of  this  model  have  a consistant 
geometry  and  spacing  only  the  first  need  be  input.  A complete 
listing  of  the  data  input  is  shown  in  Figure  B-27.  Figures  B-28 
and  B-29  show  the  grid  point  and  element  numbers  as  generated  by 
JIG.  Figure  B-30  gives  a NASTRAN  structural  plot  and  is  followed 
by  a listing  of  the  JIG  punched  output. 
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**»  SAVPLF  3 - PFPFAirD  SFCTION  TYPF  *** 
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t 

LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-lll  REPEATED  SECTION 


JUNCTION  INPUT  GENERATOR  P=?OGRA^ 


(JIG) 


• ** 

sample  3 - PEPEATED  SECTION  TYPE  **• 

NST  = 

2 

NGS  = 

1 

NES  s 

1 

NPOP  = 

1 

MID  = 

5 

NGP  = 

0 

lOELT  = 

0 

NSECT  = 

1 

NT!  1)  = 

1 0FLT71  1)  = 0.0000 

NT(  2)  = 

3 OELTZJ  2»  = 2.0000 

B-67 
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I 

J 

Z(ItJ) 

XlItJt 

1 

1 

0 .0  0000 

1.00000 

2 

1 

.50000 

1.00000 

3 

1 

1.00000 

1.00000 

4 

1 

1.50000 

1.00000 

5 

1 

2.00000 

1.00000 

6 

1 

2.50000 

l.OOCOO 

1 

2 

0.00000 

1.50000 

2 

2 

.45999 

1.49999 

3 

2 

1.00000 

1.50COO 

4 

2 

1.49999 

1.50000 

5 

2 

2.0  COOl 

1.50001 

6 

2 

2.50000 

1.50000 

1 

3 

0.00000 

2.00000 

2 

3 

.50000 

2.00000 

3 

3 

1.00000 

2.00001 

4 

3 

1.50001 

2.00001 

5 

3 

2.00001 

2.00001 

6 

3 

2.50000 

2.00000 

1 

4 

0.0  00  00 

2.50000 

2 

4 

.50000 

2.50000 

3 

4 

1.00000 

2.50000 

4 

4 

1.50000 

2.50000 

5 

4 

2.00000 

2.50000 

6 

4 

2.50000 

2.50000 

GRID 

1 

0 

1.0000 

GRID 

2 

0 

1.0000 

GRID 

3 

0 

1.0000 

GRID 

4 

0 

1.0000 

GRID 

5 

0 

1.00  00 

GRID 

6 

0 

1.0000 

GRID 

7 

0 

1.5000 

GRID 

fl 

0 

1.5000 

CTRIARG 

1 

8 

7 

CTRIARG 

2 

1 

2 

GRID 

9 

0 

1.5000 

CTRIARG 

3 

9 

8 

CTRIARG 

4 

2 

3 

GRID 

10 

0 

1.5000 

CTRIARG 

5 

10 

9 

CTRIARG 

6 

3 

4 

GRID 

11 

0 

1.50  00 

CTRIARG 

7 

11 

10 

CTRIARG 

8 

4 

c 

GRID 

12 

0 

1.5000 

CTRIARG 

9 

12 

11 

CTRIARG 

10 

5 

6 

GRID 

13 

0 

2.0000 

GRID 

14 

0 

2.0000 

CTRIARG 

11 

14 

13 

CTRIARG 

12 

7 

8 

GRID 

15 

0 

2.0000 

CTRIARG 

13 

15 

14 

CTRIARG 

14 

8 

9 

GRID 

16 

0 

2.0000 

CTRIARG 

15 

16 

15 

CTRIARG 

16 

9 

10 

GRID 

17 

0 

2.0000 

CTRIARG 

17 

17 

16 

cooea.j) 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 


0.0000 

0.0000 

0 

456 

0.0000 

.5000 

0 

456 

0.0000 

1.0000 

0 

<♦56 

O.DOOC 

1.5000 

0 

456 

0.0000 

2.0000 

0 

456 

0.0000 

2.5000 

0 

456 

0.00  00 

0.0000 

0 

h56 

0.00  00 

.5000 

0 

456 

1 

0.0000 

5 

ft 

O.OOOC 

5 

0.0000 

l.OOOG 

0 

456 

2 

0.0000 

5 

9 

0.0000 

5 

0.0000 

1.5000 

0 

456 

3 

0.0000 

5 

10 

0.0000 

5 

0.0000 

2.0000 

0 

•♦56 

u 

0.0000 

5 

11 

0.0000 

5 

o.oooc 

2.5000 

0 

456 

5 

0.0000 

5 

12 

0.0000 

5 

0.0000 

0.0000 

0 

456 

0.0000 

.5000 

0 

456 

7 

0.0000 

5 

14 

0.0000 

5 

0.0000 

1.0000 

0 

456 

8 

0.0000 

5 

15 

0.0000 

5 

0.0000 

1.5000 

0 

456 

9 

o.oooc 

5 

16 

0.0000 

5 

0.00  oc 

2.0000 

0 

♦ 5b 

10 

0.0000 

5 
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CTRIARG 

18 

10 

11 

GRID 

18 

0 

2.0000 

CTRIARG 

19 

18 

17 

CTRIARG 

20 

11 

12 

GRID 

19 

0 

2.5000 

GRID 

20 

0 

2.5000 

CTRIARG 

21 

20 

19 

CTRIARG 

22 

13 

14 

GRID 

21 

0 

2.5000 

CTRIARG 

23 

21 

20 

CTRIARG 

24 

14 

15 

GRID 

22 

0 

2.  50  00 

CTRIARG 

25 

22 

21 

CTRIARG 

26 

15 

16 

GRID 

23 

0 

2.5000 

CTRIARG 

27 

23 

22 

CTRIARG 

28 

16 

17 

GR 10 

24 

0 

2.5000 

CTRIARG 

29 

24 

23 

CTRIARG 

30 

17 

IP 

I 

J 

Zfl.J) 

X(I,J) 

1 

1 

2.50000 

1.00000 

2 

1 

3.00000 

1.00000 

3 

1 

3.50000 

1.00000 

4 

1 

4.00000 

1.00000 

5 

1 

4.50000 

1.00000 

1 

2 

2.50000 

1.50000 

2 

2 

3.00316 

1.49998 

3 

2 

3.49999 

1.49999 

4 

2 

3.99679 

1.49998 

5 

2 

4.50000 

1.50000 

1 

3 

2.50000 

2.00000 

2 

3 

3.01274 

1.99998 

3 

3 

3.49998 

1.99999 

4 

3 

3.98724 

2.00000 

5 

3 

4.50000 

2.00000 

1 

4 

2.50000 

2.50000 

2 

4 

3.04785 

2.50000 

3 

4 

3.50004 

2.500  03 

4 

4 

3.95217 

2.50002 

5 

4 

4.50000 

2.50000 

1 

5 

2.83335 

3.00000 

2 

5 

3.17863 

2.99999 

3 

5 

3.50002 

3.00001 

4 

5 

3.82133 

2.99998 

5 

5 

4.16665 

3.00000 

1 

6 

3.16670 

3.50000 

2 

6 

3.33335 

3.50000 

3 

6 

3.50000 

3.50000 

4 

6 

3.66665 

3.50000 

5 

6 

3.83330 

3.50000 

1 

7 

3.50000 

4.00000 

GRID 

25 

0 

1.0000 

GRID 

26 

0 

1.0000 

GRID 

27 

0 

1.0000 

GRID 

28 

0 

1.0000 

GRID 

29 

0 

1.5000 

CTRIARG 

31 

29 

12 

CTRIARG 

32 

6 

25 

GRID 

30 

0 

1.5000 

17 

0.0000 

5 

0.00  00 

2.5000 

0 

456 

11 

O.OOQC 

5 

IP 

0.0000 

5 

0.0000 

0.0000 

0 

<♦56 

0.00  00 

.5000 

0 

•♦55 

13 

o.oooc 

5 

20 

0.0000 

5 

0.00  00 

1.0000 

0 

'♦56 

14 

o.oooc 

5 

21 

0.0000 

5 

0.00  00 

1.5000 

0 

-.55 

15 

0.0000 

5 

22 

0.0000 

5 

0.00  00 

2.0000 

C 

456 

16 

0.0000 

5 

23 

0.0000 

5 

0.0  0 00 

2.5000 

0 

•♦56 

17 

0.0000 

5 

2-. 

0.0000 

5 

cooed 

.J> 

1 

1 

1 

1 

1 

1 

0 

Q 

0 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 


0.0000 

3.000C 

0 

456 

O.OOOC 

3.5000 

0 

456 

0.0000 

4.0000 

0 

456 

0.0000 

4.5000 

0 

455 

O.DO  00 

3.0032 

0 

456 

6 

0.0000 

5 

29 

0.0000 

5 

0.0000 

3.5000 

0 

456 
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CTRIARG 

33 

30 

29 

25 

0.0000 

5 

CTRIARG 

34 

25 

26 

30 

0.0000 

5 

GRID 

31 

0 

1.500C 

0.0  0 00 

3.9966 

0 

456 

CTRIARG 

35 

31 

30 

26 

O.OOCO 

5 

CTRIARG 

36 

26 

27 

31 

0.0000 

5 

GRID 

32 

0 

1.5000 

0.0000 

4.5000 

0 

<♦66 

CTRIARG 

37 

32 

31 

27 

0.0000 

5 

CTRIARG 

38 

27 

26 

32 

0.0000 

5 

GRID 

33 

0 

2.0000 

o.ooco 

3.0127 

0 

456 

CTRIARG 

39 

33 

16 

12 

0.0000 

5 

CTRIARG 

40 

12 

29 

33 

0.0000 

5 

GRID 

34 

C 

2.0000 

0.0000 

3.500C 

0 

456 

CTRIARG 

41 

34 

33 

29 

0.0000 

5 

CTRIARG 

42 

29 

30 

34 

0.0000 

5 

GRID 

35 

0 

2.0000 

0.0000 

3.9972 

0 

456 

CTRIARG 

43 

35 

34 

30 

0.0000 

5 

CTRIARG 

44 

30 

31 

35 

0.0000 

5 

GRID 

36 

0 

2.  00  00 

0.00  00 

4.5000 

0 

•♦56 

CTRIARG 

45 

36 

35 

31 

0.0000 

5 

CTRIARG 

46 

31 

32 

36 

o.oooc 

5 

GRID 

37 

D 

2.5000 

0.0000 

3.0478 

0 

456 

CTRIARG 

47 

37 

24 

18 

0.0000 

5 

CTRIARG 

49 

18 

33 

37 

0.0000 

5 

GRID 

38 

0 

2.5000 

0.0000 

3.5000 

0 

<♦56 

CTRIARG 

49 

38 

37 

33 

o.ococ 

5 

CTRIARG 

50 

33 

34 

38 

O.QQOQ 

5 

GRID 

39 

0 

2. 5000 

0.0000 

3.9522 

0 

456 

CTRIARG 

51 

39 

38 

34 

O.OOOC 

5 

CTRIARG 

52 

34 

35 

39 

0.0000 

5 

GRID 

4C 

0 

2.5000 

C.300J 

4.5000 

0 

456 

CTRIARG 

53 

40 

39 

35 

O.OOCO 

5 

CTRIARG 

54 

35 

36 

40 

0.0000 

5 

GRID 

41 

0 

3.0000 

0.00  00 

2.9334 

0 

456 

GRID 

4? 

0 

3.  0000 

O.Oil  OG 

3.1786 

0 

456 

CTRIARG 

55 

42 

41 

24 

0.0000 

5 

CTRIARG 

56 

24 

37 

42 

0.0000 

5 

GRID 

43 

C 

3.0000 

0.0000 

3.5000 

0 

456 

CTRIARG 

57 

43 

42 

37 

0.0000 

c 

CTRIARG 

56 

37 

38 

43 

0.0000 

5 

GRID 

44 

0 

3.0000 

O.OOCO 

3.8213 

0 

456 

CTRIARG 

59 

44 

43 

38 

O.OOOC 

5 

CTRIARG 

60 

36 

39 

4<* 

O.OOOC 

5 

GRID 

45 

0 

3. 0000 

0.00  00 

4.1667 

C 

456 

CTRIARG 

61 

45 

44 

39 

0.0000 

5 

CTRIARG 

62 

39 

40 

45 

0.0000 

5 

GRID 

46 

0 

3.5000 

0.00  00 

3.1667 

0 

456 

GRID 

47 

0 

3.5000 

0.00  CO 

3.500C 

0 

456 

CTRIARG 

63 

41 

42 

46 

0.0000 

5 

CTRIARG 

64 

42 

47 

46 

0.0000 

5 

CTRIARG 

65 

42 

43 

47 

0.0000 

5 

GRID 

48 

0 

3.5000 

0.00  00 

3.8333 

0 

.56 

CTRIARG 

66 

43 

44 

47 

o.ocoo 

5 

CTRIARG 

67 

44 

46 

47 

o.ooco 

5 

CTRIARG 

68 

44 

45 

46 

0.0000 

5 

GRID 

49 

0 

4.0000 

0.00  00 

3.5000 

0 

.56 

CTRIARG 

69 

47 

49 

46 

O.OOOC 

5 

CTRIARG 

70 

48 

49 

47 

0.0000 

5 

I 

J 

2(1  .Jl 

Xd.J) 

COOEd 

. J) 

1 

1 

50000 

1.00000 

1 

2 

1 

5. 

00000 

1.00000 

1 
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3 

1 

5.SOOOO 

1.00000 

1 

4 

1 

6.00000 

1.00000 

1 

5 

1 

6.S0000 

1.00000 

1 

1 

2 

4.50000 

1.50000 

1 

2 

2 

5.00316 

1.49998 

0 

3 

2 

5.49599 

1.49999 

0 

4 

2 

5.99679 

1.49998 

0 

5 

2 

6.50000 

1.50000 

1 

1 

3 

4.50000 

2.00000 

1 

2 

3 

5.0 1274 

1.99998 

0 

3 

3 

5.49998 

1.99999 

0 

4 

3 

5.98724 

2.00000 

0 

5 

3 

6.50000 

2.00000 

1 

1 

4 

4.50000 

2.50000 

1 

2 

4 

5.04785 

2.50000 

0 

3 

4 

5.50004 

2.50003 

0 

4 

4 

5.95217 

2.50002 

0 

5 

4 

6.5  COOO 

2.50000 

1 

1 

5 

4.83335 

3.00000 

1 

2 

5 

5.17863 

2.99999 

0 

3 

5 

5.50002 

3.00001 

0 

4 

5 

5.82133 

2.99998 

0 

5 

5 

6.1 6665 

3.00000 

1 

1 

6 

5.16670 

3.50000 

1 

2 

6 

5.33335 

3.50000 

1 

3 

6 

5.50000 

3.50000 

1 

4 

6 

5.66665 

3.50000 

1 

5 

6 

5.83330 

3.50000 

1 

1 

7 

5.50000 

9.00000 

1 

GRID 

50 

0 

l.OQOC 

0.00  00 

5.0000 

0 

456 

GRID 

51 

0 

1.0000 

0.00  00 

5.5000 

0 

•+66 

GRID 

52 

C 

1.0000 

0.0000 

6.0000 

0 

4 56 

GRID 

53 

0 

1.0000 

0.0000 

6.5000 

0 

456 

GRID 

54 

0 

1.50  00 

0.00  00 

5.0032 

0 

456 

CTRIARG 

71 

54 

32 

28 

0.0000 

5 

CTRIARG 

72 

28 

50 

5h 

0.0000 

5 

GRID 

55 

0 

1.5000 

0.0000 

5.5000 

0 

456 

CTRIARG 

73 

56 

54 

50 

0.0000 

5 

CTRIARG 

74 

50 

51 

cr 

0.0000 

5 

GRID 

56 

0 

1.50  00 

0.00  00 

5.9968 

0 

456 

CTRIARG 

75 

56 

55 

51 

0.0000 

5 

CTRIARG 

76 

51 

52 

56 

0.0000 

5 

GRID 

57 

0 

1.5000 

0.00  00 

6.5000 

0 

456 

CTRIARG 

77 

57 

56 

52 

0.0000 

5 

CTRIARG 

78 

52 

53 

57 

0.0000 

5 

GRID 

58 

0 

2. 0000 

0.0  0 00 

5.0127 

0 

4 56 

CTRIARG 

79 

58 

36 

32 

0.0000 

5 

CTRIARG 

80 

32 

54 

58 

0.0000 

5 

GRID 

59 

0 

2.0000 

0.0000 

5.5000 

0 

456 

CTRIARG 

81 

59 

58 

54 

0.0000 

5 

CTRIARG 

82 

54 

55 

59 

0.0000 

5 

GRID 

60 

0 

2.0000 

0.00  00 

5.9872 

0 

456 

CTRIARG 

83 

60 

59 

55 

0.0000 

5 

CTRIARG 

84 

56 

56 

60 

Q.OOOO 

5 

GRID 

61 

0 

2. 0000 

0.0000 

6.5000 

0 

456 

CTRIARG 

85 

61 

60 

56 

0.0000 

5 

CTRIARG 

86 

56 

57 

61 

0.0000 

5 

GRID 

62 

0 

2.5000 

0.0000 

5.0478 

0 

456 

CTRIARG 

87 

62 

40 

36 

0.0000 

e; 

CTRIARG 

88 

36 

58 

62 

0.0000 

5 

GRID 

63 

C 

2.5000 

0.00  00 

5.5000 

0 

456 

CTRIARG 

89 

63 

62 

58 

Q.OOOO 

5 

CTRIARG 

90 

58 

59 

63 

0.0000 

5 

GRID 

64 

C 

2.5000 

0.0000 

5.9522 

C 

456 
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CTRIARG 

91 

64 

63 

59 

0.0000 

5 

CTRIARG 

92 

59 

60 

64 

0.0000 

5 

GR  ID 

65 

0 

2.5000 

0.0000 

6.500C 

0 

456 

CTRIARG 

93 

65 

64 

60 

0.0000 

5 

CTRIARG 

9A 

60 

61 

65 

0.0000 

5 

GRID 

66 

0 

3.0000 

0.00  00 

4.8334 

0 

456 

GRID 

67 

0 

3.00  00 

0.00  00 

5.1786 

Q 

456 

CTRIARG 

95 

67 

66 

40 

0.0000 

5 

CTRIARG 

96 

40 

62 

67 

0.0000 

5 

GRID 

68 

n 

3.0000 

O.OOOQ 

5.5000 

0 

456 

CTRIARG 

97 

68 

67 

62 

0.0000 

5 

CTRIARG 

99 

62 

63 

68 

0.0000 

5 

GRID 

69 

0 

3.0000 

0.  0000 

5.8213 

0 

456 

CTRIARG 

99 

69 

68 

63 

0.0000 

5 

CTRIARG 

100 

63 

64 

69 

0.0000 

5 

GRID 

70 

0 

3.0000 

0.0000 

6.1667 

U 

456 

CTRIARG 

101 

70 

69 

64 

0.0000 

5 

CTRIARG 

102 

64 

65 

70 

0.0000 

5 

GRID 

71 

0 

3.5000 

0.0000 

5.1667 

0 

456 

GRID 

72 

0 

3.5000 

0.0000 

5.5000 

0 

456 

CTRIARG 

103 

66 

67 

71 

O.OOOQ 

5 

CTRI ARC 

104 

67 

72 

71 

0.0000 

5 

CTRIARG 

105 

67 

68 

72 

0.0000 

5 

GRID 

73 

0 

3.5000 

0.0000 

5.8333 

0 

456 

CTRIARG 

106 

68 

69 

72 

0.0000 

5 

CTRIARG 

107 

69 

73 

72 

0.0000 

c 

CTRIARG 

106 

69 

70 

73 

0.0000 

c 

GRID 

74 

0 

4.0000 

0.0000 

5.5CC0 

0 

456 

CTRIARG 

109 

72 

74 

71 

0.0000 

5 

CTRIARG 

110 

73 

74 

72 

O.OOOG 

5 

I 

J 

2(1  .Jl 

X (I ,J) 

COOEII t J) 

1 

1 

6.50000 

1.00000 

1 

2 

1 

7.00000 

1.00000 

1 

3 

1 

7.50000 

1.00000 

1 

4 

1 

8.00000 

l.OOCOO 

1 

5 

1 

8.50000 

1.00000 

1 

1 

2 

6.50000 

1.50000 

1 

2 

2 

7.00316 

1.49998 

0 

3 

2 

7.49999 

1.49999 

0 

4 

2 

7.99679 

1.49998 

0 

5 

2 

8.50000 

1.50000 

1 

1 

3 

6.50000 

2.00000 

1 

2 

3 

7.0 1274 

1.99998 

0 

3 

3 

7.49998 

1.99999 

0 

4 

3 

7.98724 

2.00000 

0 

5 

3 

8.50000 

2.00000 

1 

1 

4 

6.500  00 

2.50000 

1 

2 

4 

7.04785 

2.50000 

0 

3 

4 

7.50004 

2.50003 

0 

4 

4 

7.95217 

2.50002 

0 

5 

4 

0.50000 

2.50000 

1 

1 

5 

6.83335 

3.00000 

1 

2 

5 

7.17863 

2.99999 

0 

3 

5 

7.50002 

3.00001 

0 

4 

5 

7.82133 

2.99998 

0 

5 

5 

8.16665 

3.00000 

1 

1 

6 

7.16670 

3.50000 

1 

2 

6 

7.33335 

3.50000 

1 

3 

6 

7.50000 

3.50000 

1 

4 

6 

7.66665 

3.50000 

1 
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5 

6 

7. 

8 3330 

3.50000 

1 

1 

7 

7. 

5 0000 

'4.00000 

1 

GRID 

75 

0 

1.0000 

0.0000 

7.0000 

0 

456 

GRID 

76 

0 

1.0000 

0.0000 

7.5000 

0 

466 

GRID 

77 

0 

1.0000 

O.OOGO 

8. 0000 

0 

456 

GRID 

78 

0 

1.0000 

0.3000 

8.5000 

0 

456 

GRID 

79 

0 

1.5000 

0.0000 

7.0032 

0 

455 

CTRIARG 

111 

79 

57 

53 

O.OCOO 

5 

CTRIARG 

112 

53 

75 

79 

0.0000 

5 

GRID 

eo 

0 

1.5000 

0.0000 

7.5000 

0 

4 56 

CTRIARG 

113 

80 

79 

75 

0.0000 

5 

CTRIARG 

114 

75 

76 

80 

0.0000 

5 

GRID 

81 

0 

1.5000 

0.0000* 

7.9966 

0 

45c 

CTRI «RG 

115 

81 

80 

76 

0.0000 

c 

CTRIARG 

116 

76 

77 

81 

0.0000 

5 

GRID 

82 

0 

1.5000 

0.0000 

6. 5000 

0 

456 

CTRIARG 

117 

82 

81 

77 

0.0000 

5 

CTRIARG 

118 

77 

78 

82 

0.0000 

5 

GRID 

83 

0 

2.0000 

0.0000 

7.0127 

0 

455 

CTRIARG 

119 

83 

61 

57 

0.0000 

5 

CTRIARG 

120 

57 

79 

83 

O.OOOC 

5 

GRID 

84 

0 

2.0000 

0.0000 

7.5000 

0 

456 

CTRIARG 

121 

84 

83 

79 

0.0000 

5 

CTRIARG 

122 

79 

80 

84 

0.0000 

5 

GRID 

85 

0 

2.0000 

0.00  00 

7.9872 

0 

456 

CTRIARG 

123 

86 

84 

8C 

0.0000 

5 

CTRIARG 

124 

80 

81 

65 

0.0000 

5 

GRID 

86 

0 

2.0000 

0.0000 

6.5000 

0 

456 

CTRIARG 

125 

86 

85 

81 

0.0000 

5 

CTRIARG 

126 

81 

82 

66 

O.OOOC 

5 

GRID 

87 

0 

2.5000 

0.00  00 

7.0478 

0 

4 56 

CTRIARG 

127 

87 

65 

61 

0.0000 

5 

CTRIARG 

128 

61 

83 

87 

0.0000 

5 

GRID 

88 

0 

2.5000 

O.OOOC 

7.5000 

0 

455 

CTRIARG 

129 

88 

87 

83 

3.0000 

5 

CTRIARG 

130 

83 

84 

68 

0.0000 

5 

GRID 

89 

0 

2.5000 

0.0000 

7.9522 

0 

4 55 

CTRIARG 

131 

89 

68 

84 

0.0000 

5 

CTRIARG 

132 

84 

85 

89 

0.0000 

5 

GRID 

90 

0 

2.5000 

0.0000 

8.5000 

0 

455 

CTRIARG 

133 

90 

89 

85 

o.tooo 

5 

CTRIARG 

134 

85 

86 

90 

0.0000 

5 

GRID 

91 

0 

3.0000 

0.0000 

6.8334 

0 

456 

GRID 

92 

0 

3.0000 

0.00  OC 

7.1786 

0 

455 

CTRIARG 

135 

92 

91 

65 

3.0000 

5 

CTRIARG 

136 

65 

87 

92 

0.0000 

5 

GR  ID 

93 

0 

3.0000 

0.00  03 

7.5000 

0 

4 56 

CTRIARG 

137 

93 

92 

67 

3.0000 

5 

CTRIARG 

138 

87 

88 

93 

0.0000 

5 

GRID 

94 

0 

3.0000 

0.0000 

7.8213 

0 

456 

CTRIARG 

139 

94 

93 

88 

0.0000 

5 

CTRIARG 

140 

88 

89 

94 

0.0000 

5 

GRID 

95 

C 

3.0000 

0.00  00 

8.1667 

0 

455 

CTRIARG 

141 

95 

94 

89 

3.0000 

5 

CTRIARG 

142 

89 

90 

95 

O.OOOC 

5 

GRID 

96 

0 

3.50  00 

0.00  00 

7.1667 

0 

456 

GRTO 

97 

0 

3.5000 

0.0000 

7.5000 

0 

455 

CTRIARG 

143 

91 

92 

96 

O.OQOO 

5 

CTRIARG 

144 

92 

97 

96 

0.0000 

5 

CTRIARG 

145 

92 

93 

97 

0.0000 

5 

GRID 

98 

0 

3.5000 

0.0000 

7.8333 

0 

456 

CTRIARG 

146 

93 

94 

97 

0.0000 

5 

CTRIARG 

147 

94 

98 

97 

0.0000 

5 

CTRIARG 

148 

94 

95 

98 

0.0000 

5 
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GRID 

99 

0 

4.0000 

0.0000 

CTRIARG 

149 

97 

99 

96 

CTRIARG 

150 

90 

99 

97 
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I 

! 
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7.5000 
0.0000 
0.0000 
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PROBLEM  B-IV 
VARIABLE  THETA 

This  problem  demonstrates  the  variable  theta  feature  of  JIG. 
Figure  B-31  shows  the  planned  finite  element  model  and  configuration 
of  a tapered  cylindrical  shell  using  the  variable  theta  feature. 

A complete  listing  of  the  data  input  is  shown  in  Figure  B-32. 

Figure  B-33  shows  the  grid  point  and  element  numbers  as  generated 
by  JIG.  Figures  B-34  and  B-35  give  NASTRAN  structural  plots  and 
are  followed  by  a listing  of  the  JIG  punched  output. 


KK(4)«9  KK(1)-1,THETA(1)«0.0 

THETA(4)  - 360.0 


PLANNED  FINITE  ELEMENT  MODEL  AND  CONFIGURATION  OF  A THICK  TAPERED  CYLINDRICAL 
SHELL  USING  THE  VARIABLE  THETA  FEATURE. 
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**•  3A1PUP  4 - VARIABLE  THETA  ••• 


NST  = 

1 

NGS  = 

1 

NES  = 

1 

NPOP  = 

3 

HID  = 

E 

NGP  = 

0 

lOELT  = 

1 

NSFCT  = 

1 

NT(  1)  = 

1 

3ELT7( 

1) 

= 

0.0000 

^IDT  = 

3 

ICLOSF  = 

0 

OFLGP  = 

50 

KKt  1)  = 

1 

THETA  ( 

1) 

s 

0. ocoo 

K<(  2)  = 

4 

THETA  ( 

2» 

s 

90.0000 

k:k<  3)  = 

5 

THETA  ( 

3) 

s 

160.0000 

KK{  4)  = 

9 

THETA  ( 

4) 

= 

360.0000 

BETA(  1) 

= 

0. 

000  0 

BFTA(  2» 

= 

360. 

000  0 

JB(  1)  = 

1 

JP(  1) 

= 

5 
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I 

J 

Z(ItJ) 

X(I,J)  COOEd 

f J» 

1 

1 

0.00000 

1.50000  1 

2 

1 

1.00000 

1.40000  1 

3 

1 

2.00000 

1.30000  1 

k 

1 

3.00000 

1.20000  1 

5 

1 

4.00000 

1.10000  1 

6 

1 

5.00000 

1.00000  1 

1 

2 

0.00000 

1.75000  1 

2 

2 

1.00000 

1.70000  0 

3 

2 

2.00001 

1.65001  0 

4 

2 

3.00002 

1.60000  0 

5 

2 

3.99999 

1.54999  0 

6 

2 

5.00000 

1.50000  1 

1 

3 

0.00000 

2.00000  1 

2 

3 

1.00003 

2.00002  0 

3 

3 

2.00002 

2.00001  0 

4 

j 

3.00000 

1.99999  0 

5 

3 

4.00000 

2.00000  0 

6 

3 

5.00000 

2.00000  1 

1 

4 

0.00000 

2.25000  1 

2 

4 

1.00002 

2.30001  0 

3 

4 

1.99998 

2.34999  0 

4 

4 

3.00000 

2.40000  0 

5 

4 

4.00000 

2.44999  0 

6 

4 

5.00000 

2.50000  1 

1 

5 

0.00000 

2.50000  1 

2 

5 

1.00000 

2.60000  1 

3 

5 

2.00000 

2.70000  1 

4 

5 

3.00000 

2.30000  1 

5 

^.00000 

2.90000  1 

6 

5 

5.00000 

3.00000  1 

G«IO 

1 

1 

1.5000  0.0000 

0.0000 

1 

456 

GRID 

2 

1 

1.5000  30.0000 

0.0000 

1 

456 

GRID 

3 

1 

1.5000  60.0000 

0.0000 

1 

456 

GRID 

4 

1 

1.5000  90.0000 

0.0000 

1 

456 

GRIO 

5 

1 

1. 5000135.0000 

0.0000 

1 

456 

GRID 

6 

1 

1.5000180.0000 

0.0000 

1 

456 

GRIO 

7 

1 

1.5000240.0000 

0.0000 

1 

456 

GRIO 

3 

1 

1.5000300.0000 

0.0000 

1 

456 

GRIO 

9 

1 

1.4000  0.0000 

1.0000 

1 

456 

GRID 

10 

1 

1.4000  30.0000 

1.0000 

1 

456 

GRIO 

11 

1 

1.4000  60.0000 

1.0000 

1 

456 

GRIO 

12 

1 

1.4000  90.0000 

1.0000 

1 

456 

GRIO 

13 

1 

1.4000135.0000 

1.0000 

1 

456 

GRID 

14 

1 

1.4000180.0000 

1.0000 

1 

456 

GRID* 

15 

1 

1.4000240.0000 

1.0000 

1 

456 

GRIO 

1$ 

1 

1.4000300.0000 

1.0000 

1 

456 

GRID 

17 

1 

1.3000  0.0000 

2.0003 

1 

456 

GRIO 

IS 

1 

1.3000  30.0000 

2.0000 

1 

456 

GRID 

1 9 

1 

1.3000  60.0003 

2.0000 

1 

456 

GRIO 

20 

1 

1.3000  90.0000 

2.0000 

1 

456 

GRIO 

21 

1 

1.3000135.0000 

2.0000 

1 

456 

GRIO 

22 

1 

1.3000180.0000 

2.0000 

1 

456 

GRIO 

23 

1 

1.3000240.0000 

2.0000 

1 

456 

GRID 

24 

1 

1.3000300.0000 

2.0000 

1 

456 

GRIO 

25 

1 

1.2000  0.0000 

3.0000 

1 

456 

GRID 

26 

1 

1.2000  30.0000 

3.0000 

1 

456 

GRIO 

27 

1 

1.2000  60.0000 

3.0000 

1 

456 

GRID 

28 

1 

1.2000  90.0000 

3.0000 

1 

456 
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GRID 

?9 

1 

1.2000135.0000 

3.0000 

1 

456 

GRIP 

30 

1 

1.2000160.0000 

3.0000 

1 

456 

GRID 

31 

1 

1. 2000240.0000 

3.0000 

1 

456 

GRID 

32 

1 

1.2000300.0000 

3.0000 

1 

•*56 

GRID 

33 

1 

1.1000  0.0000 

4.0000 

1 

456 

GRID 

34 

1 

1.1000  30.0000 

4.0000 

1 

456 

GRID 

35 

1 

1.1000  60.0000 

4.0000 

1 

456 

GRID 

36 

1 

1.1000  90.0000 

4.0000 

1 

456 

GRID 

37 

1 

1.1000135.0000 

4.0000 

1 

456 

GRID 

3a 

1 

1.1000160.0000 

4.0000 

1 

456 

GRID 

39 

1 

1. 1000240.0000 

4.0000 

1 

456 

GRID 

40 

1 

1.1000300.0000 

4.0000 

1 

4 56 

GRID 

41 

1 

1.0000  0.0000 

5.0000 

1 

456 

GRID 

42 

1 

1.0000  30.0000 

5.0000 

1 

456 

GRID 

43 

1 

1.0000  60.0000 

5.0000 

1 

456 

GRID 

4 4 

1 

l.OQOO  90.0000 

5.0000 

1 

456 

GRIP 

4 5 

1 

1. 0000135.0000 

5.0000 

1 

456 

GRID 

45 

1 

1. 0000180.0000 

5.0000 

1 

456 

GRID 

47 

1 

1. 0000240.0000 

5.0000 

1 

456 

GRID 

46 

1 

1. 0000303.0000 

5.0000 

1 

456 

GRID 

49 

1 

1.7500  0.0000 

0.0000 

1 

4 56 

GRID 

5 0 

1 

1.7500  30.0000 

0.0000 

1 

456 

GRID 

51 

1 

1.7500  60.0000 

0.0000 

1 

456 

GRID 

5? 

1 

1.7500  90.0000 

0.0000 

1 

456 

GRID 

5 3 

1 

1.7500135.0000 

0.0000 

1 

456 

GRID 

5^ 

1 

1.7500160.0000 

0.0000 

1 

456 

GRID 

55 

1 

1.7500240.0000 

0.0000 

1 

456 

GRID 

56 

1 

1. 7500300.0000 

0.0000 

1 

456 

GRID 

57 

1 

1.7000  0.0000 

1.0000 

1 

456 

GRID 

5a 

1 

1.7000  30.0000 

1.0000 

1 

456 

GRID 

59 

1 

1.7000  60.0000 

1.0000 

1 

456 

GRID 

60 

1 

1.7000  90.0000 

1.0000 

1 

•♦56 

GRID 

61 

1 

1.7000135.0000 

1.0000 

1 

456 

GRID 

62 

1 

1.7000180.0000 

1.0000 

1 

456 

GRID 

6 3 

1 

1.7000240.0000 

1.0000 

1 

456 

GRID 

6 

1 

1.7000300.0000 

1.0000 

1 

456 

CHFDGP 

1 

5 

57  49 

1 

58 

50 

2 

CWFDGF 

51 

6 

53  50 

2 

59 

51 

T 

CWEDG'^ 

10  1 

5 

59  51 

3 

60 

52 

4 

CWFOGF 

151 

5 

60  52 

4 

61 

53 

5 

CWEOGF 

20  1 

c 

61  53 

5 

62 

5“* 

6 

CWEDGE 

251 

5 

62  54 

5 

6 3 

55 

7 

CHEDGE 

301 

5 

63  55 

7 

64 

56 

8 

CWEDGE 

351 

5 

64  5b 

8 

57 

49 

1 

CWEDGF 

2 

5 

1 9 

57 

2 

10 

58 

CMEDGF 

52 

c 

2 10 

56 

3 

11 

59 

CWEDG'" 

102 

5 

3 11 

59 

4 

12 

60 

CHEDGE 

152 

5 

4 12 

60 

5 

13 

61 

CWEDGE 

20  2 

5 

5 13 

51 

6 

!•* 

62 

CHFPGP 

26  2 

5 

6 14 

62 

7 

15 

63 

CWEDGE 

30  2 

5 

7 15 

63 

8 

16 

64 

CWEDGE 

35  2 

5 

8 16 

6^ 

1 

9 

57 

GRID 

6 5 

1 

1.6500  0.0000 

2.0000 

1 

456 

GRID 

66 

1 

1.6500  30.0000 

2.0000 

1 

456 

GRID 

67 

1 

1.6500  60.0000 

2.0000 

1 

456 

GRID 

63 

1 

l.t>500  90.0000 

2.0000 

1 

456 

GRID 

6 9 

1 

1.6500135.0000 

2.0000 

1 

456 

GRID 

70 

1 

1.6500160.0000 

2.0000 

1 

456 

GRID 

71 

1 

1.6500240.0000 

2.0000 

1 

456 

GRID 

72 

1 

1.6500300.0000 

2.0003 

1 

456 

CWEDGE 

3 

5 

65  57 

9 

6o 

58 

10 

CWFPGF 

5 3 

5 

66  56 

10 

67 

59 

11 

CHEDGE 

10  3 

5 

67  59 

11 

68 

60 

12 

CWEDGE 

153 

5 

68  6C 

12 

69 

61 

13 
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CMEOGE 

20  3 

5 

69 

61 

13 

70 

62 

14 

CWEOGF 

25  3 

5 

70 

62 

14 

71 

63 

15 

CWEOGE 

30  3 

5 

71 

63 

15 

72 

64 

16 

CHEOGE 

353 

5 

72 

64 

16 

65 

57 

9 

CMEOGE 

4 

5 

9 

17 

65 

10 

18 

66 

CMEOGE 

54 

5 

10 

18 

66 

11 

19 

67 

CMEOGE 

104 

5 

11 

19 

67 

12 

20 

68 

CMEOGE 

154 

5 

12 

20 

68 

13 

21 

69 

CMEOGE 

20  4 

5 

13 

21 

69 

14 

22 

70 

CMEOGE 

254 

5 

14 

22 

70 

15 

23 

71 

CMEOGE 

30  4 

5 

15 

23 

71 

16 

24 

72 

CMEOGE 

35h 

5 

16 

24 

72 

9 

17 

65 

GRIO 

73 

1 

1.6000 

0.0000 

3.0000 

1 

456 

GRID 

74 

1 

1.6000 

30.0000 

3.0000 

1 

456 

GRIO 

75 

1 

1.6000 

60.0000 

3.0000 

1 

456 

GRID 

76 

1 

1.6000 

90.0000 

3.0000 

1 

456 

GRID 

77 

1 

1.6000135.0000 

3.0000 

1 

456 

GRIO 

78 

1 

1.6000180.0000 

3.0000 

1 

456 

GRIO 

79 

1 

1.6000240.0000 

3.0000 

1 

456 

GRID 

80 

1 

1.6000300.0000 

3.0000 

1 

456 

CMEOGE 

5 

5 

73 

65 

17 

7h 

66 

18 

CMEOGE 

55 

5 

74 

66 

18 

75 

67 

19 

CMEOGE 

105 

5 

75 

67 

19 

7b 

68 

20 

CMEOGE 

155 

5 

76 

68 

20 

77 

69 

21 

CMEOGE 

20  5 

5 

77 

69 

21 

78 

70 

2? 

CMEOGE 

255 

5 

78 

70 

22 

79 

71 

23 

CMEOGE 

30  5 

5 

79 

71 

23 

80 

72 

24 

CMEOGE 

355 

5 

80 

72 

24 

73 

65 

17 

CMEOGE 

6 

5 

17 

25 

73 

18 

26 

74 

CMEOGE 

56 

5 

18 

26 
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116 

124 

172 

117 

125 

173 

CMEOGE 

22  6 

c 

117 

125 

173 

118 

126 

174 

CMEOGE 

276 

5 

118 

126 

174 

119 

127 

175 

CMEOGE 

326 

5 

119 

127 

175 

120 

128 

176 

CMEOGE 

376 

c 

120 

128 

176 

113 

121 

169 

GRIO 

177 

1 

2.4500 

0.0000 

4.0000 

1 

456 

GRID 

178 

1 

2.4500 

30.0000 

4.0000 

1 

456 

GRIO 

179 

1 

2.4500 

60.0000 

4.0000 

1 

456 

GRIO 

18  0 

1 

2.4500 

90.0000 

4.0000 

1 

456 

GRIO 

181 

1 

2.4500135.0000 

4.0000 

1 

456 

GRID 

182 

1 

2.4500180.0000 

4.0000 

1 

456 

GRIO 

183 

1 

2.4500240.0000 

4.0000 

1 

456 

GRIO 

184 

1 

2.4500300.0000 

4.0000 

1 

456 

CMEOGE 

27 

5 

177 

169 

121 

178 

170 

122 

CMEOGE 

77 

5 

178 

170 

122 

179 

171 

123 

CMEOGE 

127 

5 

179 

171 

123 

180 

172 

124 

CMEOGE 

177 

5 

180 

172 

124 

181 

173 

125 

CMEOGE 

22  7 

5 

181 

173 

125 

182 

174 

126 

CMEOGE 

277 

5 

182 

174 

126 

183 

175 

127 

CMEOGE 

327 

5 

183 

175 

127 

184 

176 

128 

CMEOGE 

377 

5 

184 

176 

126 

177 

169 

121 

CMEOGE 

28 

5 

121 

129 

177 

122 

130 

178 

CMEOGE 

78 

5 

122 

130 

178 

123 

131 

179 

CMEOGE 

128 

5 

123 

131 

179 

124 

132 

180 

CMEOGE 

17  8 

5 

124 

132 

180 

125 

133 

181 

CMEOGE 

22  8 

5 

125 

133 

181 

126 

134 

182 

CMEOGE 

27  8 

5 

126 

134 

132 

127 

135 

183 

CMEOGE 

328 

5 

127 

135 

183 

128 

136 

184 

CMEOGE 

378 

5 

128 

136 

184 

121 

129 

177 

GRIO 

18  5 

1 

2.5000 

0.0000 

5.0000 

1 

456 

GRIO 

166 

1 

2.5000 

30.0000 

5.0000 

1 

456 

GRIO 

187 

1 

2.5000 

60.0000 

5.0000 

1 

456 

GRIO 

188 

1 

2.5000 

90.0000 

5.0000 

1 

456 

BLl.lUK'AillSll' 
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GPn 

189 

1 

2.5000135.0000 

5.0000 

1 

456 

G9IC 

19  0 

1 

2.5000180.0000 

F .0000 

1 

456 

GRID 

191 

1 

2.5000240.0000 

5.0003 

1 

456 

GRID 

19? 

1 

2.5000300.0000 

5.0003 

1 

456 

CWEDGr 

?9 

5 

185 

177 

129 

186 

178 

130 

CWEDGF 

79 

5 

186 

178 

130 

187 

179 

131 

CWEDGE 

129 

5 

187 

179 

131 

188 

180 

132 

CHEDGF 

17  9 

5 

188 

180 

132 

189 

181 

133 

CWEOGP 

229 

5 

189 

181 

133 

190 

182 

134 

CWEOG*-' 

27  9 

5 

190 

182 

134 

191 

183 

135 

CWEOGE 

329 

5 

191 

183 

135 

192 

184 

136 

CWEOGF 

37  9 

5 

192 

184 

136 

185 

177 

129 

CWEOGE 

30 

c 

129 

137 

185 

130 

138 

186 

CWEDGE 

6 0 

5 

130 

138 

186 

131 

139 

187 

CWEOGE 

130 

5 

131 

139 

187 

132 

140 

188 

CWEOGE 

18  0 

5 

13? 

140 

188 

133 

141 

189 

CWFOGP 

?3  0 

5 

133 

141 

189 

134 

142 

190 

CWEDGE 

28  0 

5 

134 

142 

190 

135 

143 

191 

CWFOGP 

330 

5 

135 

143 

191 

136 

144 

192 

CWEDGE 

38  0 

5 

136 

144 

192 

129 

137 

185 

GRID 

19  3 

1 

2.5000 

0.0000 

0.0000 

1 

456 

GRID 

19<* 

1 

2.5000 

30.0000 

0.0000 

1 

456 

GRID 

195 

1 

2.5000 

60.0000 

G.OOOQ 

1 

456 

GRID 

196 

1 

2.5000 

90.0000 

0.0003 

1 

456 

GCIO 

197 

1 

2.5000135.0000 

0.0000 

1 

‘♦56 

GRID 

193 

1 

2.5000180.0000 

0.0000 

1 

456 

GRID 

199 

1 

2. 5000240. 0000 

0.0000 

1 

456 

GRID 

20  0 

1 

2.5000300.0000 

C.0003 

1 

4 56 

G=IO 

201 

1 

2.6000 

0.0000 

1.0000 

1 

456 

GRID 

20  2 

1 

2.6000 

30.0000 

1.0000 

1 

456 

GRID 

20  3 

1 

2.6000 

60.0000 

1.0300 

1 

456 

GRID 

20  4 

1 

2.6000 

90.0000 

1.0000 

1 

456 

GRID 

205 

1 

2.6000135.0000 

1.0000 

1 

456 

GRID 

20  6 

1 

2.6000180.0000 

1.0000 

1 

456 

GRID 

207 

1 

2.6000240.0000 

1.0000 

1 

456 

GRID 

20  3 

1 

2.6000300.0000 

i.oooa 

1 

456 

CWEOGE 

31 

5 

201 

193 

145 

202 

194 

1 46 

CWEDGP 

8 1 

5 

202 

194 

146 

203 

195 

147 

CWEDGE 

131 

5 

203 

195 

147 

204 

196 

143 

CWEOGE 

181 

5 

204 

196 

148 

205 

197 

149 

CWEDGE 

231 

5 

205 

197 

149 

206 

198 

150 

CWEDGE 

281 

5 

206 

198 

150 

207 

199 

151 

CWEOGE 

331 

5 

207 

199 

151 

208 

200 

152 

CWEDGE 

381 

5 

20  8 

200 

152 

201 

193 

145 

CWEDGE 

3? 

5 

145 

153 

201 

146 

154 

202 

CWEOGE 

82 

5 

146 

154 

202 

147 

155 

203 

CWEOGE 

13? 

5 

147 

155 

203 

148 

156 

204 

CWFOGF 

18  2 

5 

148 

156 

204 

149 

157 

205 

CWEOGE 

232 

5 

149 

157 

205 

150 

158 

206 

CWEDGE 

282 

5 

150 

158 

206 

151 

159 

207 

CWEOGE 

332 

5 

151 

159 

207 

152 

160 

208 

CWFOGF 

38  2 

c 

152 

160 

208 

145 

153 

201 

GRID 

20  9 

1 

2.7000 

0.0000 

2.0000 

1 

456 

GRID 

210 

1 

2.7000 

30.0000 

2.0000 

1 

456 

GRID 

211 

1 

2.7000 

60.0000 

2.0000 

1 

456 

GRID 

212 

1 

2.7000 

90.0000 

2.0000 

1 

456 

GRID 

213 

1 

2.7000135.0000 

2.0000 

1 

456 

GRID 

214 

1 

2.7000180.0000 

2.0000 

1 

456 

GRID 

215 

1 

2.7000240.0000 

2.0000 

1 

456 

GRID 

216 

1 

2.7000300.0000 

2.0000 

1 

456 

CWFOGF 

33 

5 

209 

201 

153 

210 

202 

15h 

CWEOGF 

83 

5 

210 

202 

15h 

211 

203 

155 

CWEDGF 

133 

5 

211 

203 

155 

212 

204 

156 

CWEDGE 

183 

5 

212 

204 

156 

213 

205 

157 
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CHEOGE 

233 

5 

213 

205 

157 

214 

206 

158 

CWEDGE 

26  3 

5 

214 

206 

158 

215 

207 

159 

CMEDGE 

333 

5 

215 

207 

159 

216 

208 

160 

CNEDGE 

38  3 

5 

216 

208 

160 

209 

201 

153 

CWEOGE 

34 

5 

153 

161 

209 

154 

162 

210 

CHEOGE 

64 

5 

154 

162 

210 

155 

163 

211 

CHEOGE 

134 

5 

155 

163 

211 

156 

164 

212 

CHEOGE 

18  4 

5 

156 

164 

212 

157 

165 

213 

CHEOGE 

234 

5 

157 

165 

213 

158 

166 

214 

CHEOGE 

28  4 

5 

158 

166 

214 

159 

167 

21: 

CHEOGE 

334 

5 

159 

167 

215 

160 

168 

216 

CHEOGE 

36  4 

5 

160 

166 

216 

153 

161 

209 

GRIO 

217 

1 

2.8000 

0.0000 

3.0000 

1 

456 

GRIO 

218 

1 

2.8000 

30.0000 

3.0000 

1 

456 

GRID 

219 

1 

2.8000 

60.0000 

3.0000 

1 

456 

GRIO 

22  0 

1 

2.8000 

90.0000 

3.0000 

1 

456 

GRIO 

221 

1 

2.8000135.0000 

3.0000 

1 

456 

GRIO 

22  2 

1 

2.8000180.0000 

3.0000 

1 

456 

GRIO 

22  3 

1 

2.8000240.0000 

3.0000 

1 

456 

GRID 

224 

1 

2.8000300.0000 

3.0000 

1 

456 

CHEOGE 

35 

5 

217 

209 

161 

218 

210 

162 

CHEOGE 

65 

5 

218 

210 

162 

219 

211 

163 

CHEOGE 

135 

e 

219 

211 

163 

220 

212 

164 

CHEOGE 

185 

5 

220 

212 

164 

221 

213 

165 

CHEOGE 

235 

5 

221 

213 

165 

222 

214 

166 

CHEOGE 

28  5 

5 

222 

214 

166 

223 

215 

167 

CHEOGE 

335 

5 

223 

215 

167 

224 

216 

168 

CHEOGE 

36  5 

5 

224 

216 

163 

217 

209 

161 

CHEOGE 

36 

5 

161 

169 

217 

162 

170 

213 

CHEOGE 

86 

5 

162 

170 

218 

163 

171 

219 

CHEOGE 

136 

5 

163 

171 

219 

164 

172 

220 

CHEOGE 

18  6 

5 

164 

172 

220 

165 

173 

221 

CHEOGE 

236 

5 

165 

173 

221 

166 

174 

222 

CHEOGE 

286 

5 

166 

174 

222 

167 

175 

223 

CHEOGE 

336 

5 

167 

175 

223 

168 

176 

224 

CHEOGE 

36  6 

5 

168 

176 

224 

161 

169 

217 

GRIO 

225 

1 

2.9000 

0.0000 

4.0000 

1 

4 56 

GRIO 

226 

1 

2.9000 

30.0000 

4.0000 

1 

456 

GRIO 

227 

1 

2.9000 

60.0000 

4.0000 

1 

456 

GRIO 

228 

1 

2.9000 

90.0000 

4.0000 

1 

456 

GRIO 

22  9 

1 

2.9000135.0000 

4.0000 

1 

456 

GRID 

23  0 

1 

2.9000180.0000 

4.0000 

1 

456 

GRID 

231 

1 

2.9000240.0000 

4.0000 

1 

4 56 

GRID 

232 

1 

2.9000300.0000 

4.0000 

1 

456 

CHEOGE 

37 

5 

225 

217 

169 

226 

218 

170 

CHEOGE 

87 

5 

226 

218 

170 

227 

219 

171 

CHEOGE 

137 

5 

227 

219 

171 

223 

220 

172 

CHEOGE 

187 

5 

228 

220 

172 

229 

221 

173 

CHEOGE 

237 

5 

229 

221 

173 

230 

222 

174 

CHEOGE 

28  7 

5 

230 

222 

174 

231 

223 

175 

CHEOGE 

33  7 

5 

231 

223 

175 

232 

224 

176 

CHEOGE 

387 

5 

232 

224 

176 

225 

217 

169 

CHEOGE 

36 

5 

169 

177 

225 

170 

178 

226 

CHEOGE 

88 

5 

170 

178 

226 

171 

179 

227 

CHEOGE 

138 

5 

171 

179 

227 

172 

180 

228 

CHEOGE 

188 

5 

172 

160 

223 

173 

181 

229 

CHEOGE 

238 

5 

173 

161 

229 

174 

182 

230 

CHEOGE 

288 

5 

174 

182 

230 

175 

183 

231 

CHEOGE 

33  3 

5 

175 

163 

231 

176 

184 

232 

CHEOGE 

388 

5 

176 

184 

232 

169 

177 

225 

GRIO 

233 

1 

3.0000 

0.0000 

5.0000 

1 

456 

GRIO 

234 

1 

3.0000 

30.0000 

5.0000 

1 

456 

GRIO 

235 

1 

3.0000 

60.0000 

5.0000 

1 

456 

GRIO 

236 

1 

3. 0000 

90.0000 

5.0000 

1 

456 
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GRID 

23  7 

1 

3.0000138. 

0000 

5. 

0000 

1 

456 

GRID 

236 

1 

3.0000160. 

0000 

5. 

0000 

1 

456 

GRID 

239 

1 

3. 0000240. 

0000 

5. 

0000 

1 

456 

GRID 

24  0 

1 

3. 0000300. 

0000 

5. 

0000 

1 

456 

CHEOGE 

39 

5 

233 

225 

177 

234 

226 

176 

CHEDGE 

89 

5 

234 

226 

178 

235 

227 

179 

CMEOGE 

139 

5 

235 

227 

179 

236 

228 

180 

CHEDGE 

189 

5 

236 

228 

180 

237 

229 

181 

CHEDGE 

239 

5 

237 

229 

181 

238 

230 

182 

CHEDGE 

28  9 

5 

238 

230 

162 

239 

231 

183 

CHEDGE 

339 

5 

239 

231 

183 

240 

232 

184 

CHEDGE 

38  9 

5 

240 

232 

184 

233 

225 

177 

CHEDGE 

40 

5 

177 

185 

233 

178 

186 

234 

CHEDGE. 

90 

5 

178 

186 

234 

179 

187 

235 

CHEDGE 

14  0 

5 

179 

187 

235 

180 

188 

236 

CHEDGE 

19  0 

5 

180 

188 

236 

181 

169 

237 

CHEDGE 

240 

5 

181 

189 

237 

182 

190 

238 

CHEDGE 

290 

5 

182 

190 

233 

163 

191 

239 

CHEDGE 

340 

5 

163 

191 

239 

184 

192 

240 

CHEDGE 

39  0 

5 

184 

192 

240 

177 

185 

233 
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PROBLEM  B-V 

PRESCRIBED  POINTS  AND  LINES 


The  following  problem  demonstrates  the  application  of  prescribed 
points  and  lines  in  a solid  ring.  Figure  B-36  shows  the  planned 
finite  element  model  and  configuration  of  a solid  ring  containing 
both  fixed  lines  and  points.  Three  options  are  available  to  the 
user.  The  first  picking  both  grid  point  number  and  grid  coordinate, 
the  second  using  the  program  calculated  grid  coordinate  and  pinching 
the  grid  number,  and  the  third  pinching  the  grid  coordinate  and  using 
the  program  calculated  grid  number.  The  added  feature  of  having 
either  increasing  or  decreasing  prescribed  grid  numbers  (for  lines 
only)  is  also  included. 

A complete  listing  of  the  data  input  is  shown  in  Figure  B-37. 
Figure  B-38  shows  the  grid  point  and  element  numbers  as  generated  by 
JIG.  Figure  B-39  gives  a NASTRAN  structural  plot  and  is  followed 
by  a listing  of  the  JIG  punched  output. 


B-92 


rs,  r-  fNj 


NSWC/WOL  TR  77-86 


[ 


( 


[ 


**»  SAMPLF  5 - FIXED  POINTS  AND  LINES  *•* 
1 1 1 1 SO  0 0 1 

1 


4 

1 

4 1 

s s 

0 

0 

0 

0 456 

0 

1 

1 

n.f' 

1 .S 

I 

A 

1 

4.0 

1.5 

1 

5 

4 

3.S 

3.0 

1 

1 

4 

0.5 

3.0 

1 

7 

7 

1 2 

1 

S 

7 

Z.f' 

1.75 

0 

1 

5 

2 3.0167 

1.75 

2 

1 

1.5 

0 

1 

o 

4 1.0 

3.0 

4 

S 

2.7A 

2.25 

0 

1 

1 

1 

o./' 

-1  .rt 

?on 

1 

4 

c 

• 

c 

n.  0 

2 

T 

0.'' 

-1.0 

300 

1 

FIG.  B-37  DATA  INPUT  PROBLEM  B-V  PRESCRIBED  POINTS  AND  LINES. 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-V  PRESCRIBED  POINTS  AND  LINES 


JUNCTION  INPUT  GENERATOR  PROGRAM 


(JIGI 


«» 


SAMPLE  5 - FIXED  POINTS  AND  LINES 


NST  * 
NGS  s 
NES  = 
NPOP  = 
NID  « 
NGP  s 
lOELT  a 
NSECT  = 
NT<  II  > 


1 

1 

1 

i 

50 

0 


OELTZI  II  = 


0.0000 
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I 

J 

2(1. J) 

xd.ji 

COOEd 

. Jt 

1 

1 

0.00000 

1.50000 

1 

2 

1 

1.00000 

1.50000 

1 

3 

1 

2.00000 

1.50000 

1 

4 

1 

3.00000 

1.50000 

1 

5 

1 

4.00000 

1.50000 

1 

1 

2 

.16667 

2.00000 

1 

2 

2 

1.000  00 

2.00000 

2 

3 

2 

2.00000 

1.75000 

2 

4 

2 

2.95835 

1.75000 

2 

5 

2 

3.91670 

1.75000 

1 

1 

3 

.33333 

2.50000 

1 

2 

3 

1 .00000 

2.50000 

2 

3 

3 

1.93751 

2.37502 

0 

4 

3 

2.75000 

2.25000 

2 

5 

3 

3.66667 

2.50000 

1 

1 

4 

.50000 

3.00000 

1 

2 

4 

1.00000 

3.0OCOO 

1 

3 

4 

2.00000 

3.00000 

1 

4 

4 

2.75000 

3.00000 

1 

5 

4 

3.5C000 

3.00000 

1 

GRID 

200 

0 

1.5000 

0.0000 

0.0000 

GRID 

201 

0 

1.5000 

0.3000 

1.0000 

GRID 

202 

0 

1.5000 

0.0000 

2.0000 

GRID 

203 

0 

1.5000 

0.0000 

3.0000 

GRID 

1 

0 

1.5000 

0.0000 

4.0000 

GRID 

2 

0 

2.0000 

0.0000 

.1667 

GRID 

3 

0 

2.0000 

0.0000 

1.0000 

CTRIARG 

1 

3 

2 

200 

0.0000 

CTRIARG 

2 

200 

201 

3 

0.0000 

GRID 

4 

0 

1.7500 

0.0000 

2.0000 

CTRIARG 

3 

4 

3 

201 

0.0000 

CTRIARG 

4 

201 

202 

4 

o.oooc 

GRID 

5 

0 

1.7500 

0.0000 

2.9584 

CTRIARG 

5 

5 

4 

202 

0.0000 

CTRIARG 

6 

202 

203 

5 

0.0000 

GRID 

6 

0 

1.7500 

0.0000 

3.9167 

CTRIARG 

7 

6 

5 

203 

O.OOOC 

CTRIARG 

8 

203 

1 

6 

0.0000 

GRID 

7 

0 

2.5000 

0.0000 

.3333 

GRID 

300 

0 

2.5000 

0.0000 

1.0000 

CTRIARG 

9 

300 

7 

2 

o.oooc 

CTRIARG 

10 

2 

3 

300 

0.0000 

GRID 

8 

0 

2.3750 

0.0000 

1.9375 

CTRIARG 

11 

8 

3 00 

3 

0.0000 

CTRIARG 

12 

3 

4 

6 

0.0000 

GRID 

9 

0 

2.2500 

0.0000 

2.7500 

CTRIARG 

13 

9 

8 

4 

0.0000 

CTRIARG 

14 

4 

5 

9 

0.0000 

GRID 

10 

0 

2. 5000 

0.0000 

3.6667 

CTRIARG 

15 

10 

9 

5 

0.0000 

CTRIARG 

16 

5 

6 

10 

0.0000 

GR  ID 

11 

0 

3.0000 

0.00  00 

.5000 

GRID 

12 

0 

3.0000 

0.0000 

1.0000 

CTRIARG 

17 

12 

11 

7 

0.0000 

CTRIARG 

18 

7 

300 

12 

0.0000 

GRID 

13 

0 

3.0000 

0.00  on 

2.0000 

CTRIARG 

19 

13 

12 

3 00 

0.0000 

CTRIARG 

20 

300 

8 

13 

0.0000 

N8WCAVOL  TR  77-86 


GRID 

14» 

0 

3.0000 

0.0000 

2.7500 

0 

456 

CTRIARG 

21 

IH 

13 

S 

0.0000 

50 

CTRIAR6 

22 

e 

9 

14 

0.0000 

50 

GRID 

15 

0 

3.0000 

0.0000 

3.5000 

0 

•♦56 

CTRIARG 

23 

15 

14 

9 

0.0000 

50 

CTRIARG 

24 

9 

10 

15 

0.0000 

50 

1 

I 
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PROBLEM  B-VI 
TRANSITION 

The  following  problem  demonstrates  the  JIG  transition  options 
for  coarse  to  fine  mesh  size  or  vice  versa.  Figure  B-40  shows  the 
planned  finite  element  model  and  configuration  of  a solid  cylindrical 
ring  containing  coarse  to  fine  then  back  to  coarse  regions.  The 
NTNT  values  must  be  established  at  the  beginning  of  a section  and 
at  the  end  of  each  transition  region.  The  value  NTNT  is  set  equal 
to  zero  for  the  finest  mesh.  Then  it  is  increased  by  one  every  time 
the  mesh  spacing  doubles.  Note  that  at  no  time  can  the  value  of 
NTNT  be  less  than  zero  (NTNT  ^ 0) . ' 

A complete  listing  of  the  data  input  is  shown  in  Figure  B-41. 

Figure  B-42  shows  the  grid  point  and  element  identification  numbers  ? 

1 

as  generated  by  JIG.  Figure  B-43  gives  a NASTRAN  structural  plot 

of  the  finite  element  model  and  is  followed  by  a listing  of  the  JIG 

punched  output.  ; 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-VI  TRANSITION 


••  JUNCTION  INPUT  GENERATOR  PROGRAM  (JIG)  ** 

••  •• 


•••  sample  6 - TRANSITIONS 


NST  * 

NGS  - 
NES  s 
NPOP  a 
MIO  a 
NGP  a 
lOELT  a 
NSECT  a 
NT(  H a 


OELTZC  II  a 0.0000 
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I 

J 

ZII.J) 

Xd.J) 

1 

1 

O.OOOQO 

2.00000 

2 

1 

.60000 

2.00000 

3 

1 

1.00000 

2.00000 

h 

1 

1.60000 

2.00000 

S 

1 

2.00000 

2.00000 

6 

1 

2.60000 

2.00000 

7 

1 

3.00000 

2.00000 

6 

1 

3.60000 

2.00000 

9 

1 

4.00000 

2.00000 

10 

1 

4.60000 

2.00000 

11 

1 

6.000  00 

2.00000 

12 

1 

6.60000 

2.00000 

13 

1 

6.00000 

2.00000 

1 

2 

0.00000 

3.00000 

2 

2 

.49999 

3.00001 

3 

2 

1.00002 

3.00004 

h 

2 

1.60002 

3.00003 

5 

2 

2.00002 

3.00001 

6 

2 

2.60003 

3.00003 

7 

2 

3.0000? 

3.0000? 

« 

2 

3.60002 

3.00001 

9 

2 

4.00001 

3.00002 

10 

2 

4.49997 

2.99996 

11 

2 

6.00002 

3.000  02 

12 

2 

6.49999 

2.99999 

13 

2 

6.00009 

3.00000 

1 

3 

0.00000 

4.00000 

2 

3 

.60001 

4.00004 

3 

3 

1.00001 

4.00006 

4 

3 

1.60001 

4.00003 

5 

3 

2.00003 

4.00002 

6 

3 

2.60003 

4.00003 

7 

3 

3.00001 

4.00002 

8 

3 

3.60002 

4.000  03 

9 

3 

3.99998 

3.99998 

1 0 

3 

4.49999 

3.99997 

11 

3 

6.00001 

4.00001 

12 

3 

6.60000 

3.99999 

13 

3 

6.00000 

4.00000 

1 

4 

O.OOOQO 

6.00000 

2 

4 

.60000 

6.00004 

3 

4 

1.00000 

6.00004 

% 

4 

1.60001 

6.00001 

5 

4 

2.00002 

5.00002 

6 

4 

2.60002 

6.00003 

7 

4 

3.00003 

6.00004 

0 

4 

3.60000 

6.00000 

9 

4 

4.00000 

4.99999 

1 0 

4 

4.49998 

4.99997 

11 

4 

6.00001 

6.00000 

12 

4 

6.49999 

4.99999 

13 

4 

6.00000 

6.00000 

1 

s 

0.00000 

6.00000 

2 

5 

.49999 

6.00002 

3 

5 

.99998 

6.99998 

4 

5 

1.49998 

5.99996 

S 

5 

2.00000 

6.00000 

6 

5 

2.60001 

6.00002 
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r 

1 


7 

5 

2.99999 

5.99999 

0 

8 

5 

3.49999 

5.99997 

0 

9 

5 

3.99998 

5.99997 

0 

10 

5 

4.49997 

5.99995 

0 

11 

5 

4.99999 

5.99999 

0 

13 

5 

5.49999 

5.99998 

0 

13 

5 

6.00000 

6.00000 

1 

1 

6 

0.00000 

7.00000 

1 

2 

6 

.49997 

6.99997 

0 

3 

6 

.99996 

6.99995 

0 

<1 

6 

1.49997 

6.999 97 

0 

S 

6 

2.00001 

7.C0002 

0 

6 

6 

2.49999 

7.00001 

0 

7 

6 

2.99999 

6.99998 

0 

8 

6 

3.49999 

6.99999 

0 

9 

6 

3.99998 

6.99998 

0 

10 

6 

4.49998 

6.99997 

0 

11 

6 

5.00000 

7.00001 

0 

12 

6 

5.50001 

7.00001 

0 

1 3 

6 

6.00000 

7.00000 

1 

1 

7 

0.00000 

8.00000 

1 

2 

7 

.49998 

7.99998 

0 

3 

7 

.99998 

7.99998 

0 

<• 

7 

1.50001 

8.00001 

0 

5 

7 

2.00001 

8.00002 

0 

6 

7 

2.49999 

8.00000 

0 

7 

7 

3.00000 

O.OOCOO 

0 

8 

7 

3.50000 

8.00000 

0 

9 

7 

4.00000 

7.99999 

0 

1 0 

7 

4.49999 

7.99998 

0 

11 

7 

5.00002 

8.00002 

0 

12 

7 

5.50000 

7.99999 

0 

13 

7 

6.00009 

8.00000 

1 

1 

6 

0.00000 

9.00000 

1 

2 

8 

.50000 

9.00000 

1 

3 

8 

1.00000 

9.00000 

1 

4 

8 

1.50000 

9.00000 

1 

5 

8 

2.00000 

9.00000 

1 

6 

8 

2.50000 

9.00000 

1 

7 

8 

3.00000 

9.00000 

1 

8 

8 

3.50000 

9.00000 

1 

9 

8 

4.00000 

9.00000 

1 

10 

8 

4.50000 

9.00000 

1 

11 

8 

5.00000 

9.00000 

1 

12 

8 

5.50000 

9.00000 

1 

13 

8 

6.00000 

9.00000 

1 

GRID 

1 

0 

2.0000  0. 

00  00 

0.0000 

c 

456 

GRID 

2 

0 

2.0000  0. 

00  00 

2.0000 

0 

456 

GR 10 

3 

Q 

2.0000  0. 

00  00 

4.0000 

0 

456 

GRID 

4 

0 

2.0000  0. 

3000 

6.0000 

0 

456 

GRID 

5 

0 

3.000C  0. 

03  00 

0.0000 

0 

456 

GRID 

6 

0 

3.0000  0. 

00  oc 

2.0000 

0 

456 

CTRIARG 

1 

6 

5 

1 

0.0000 

7 

CTRIARG 

2 

1 

2 

6 

0.0000 

7 

GRID 

7 

0 

3.0000  0. 

9000 

4.0000 

0 

456 

CTRIARG 

3 

7 

6 

2 

0.0000 

7 

CTRIARG 

4 

2 

3 

7 

0.0000 

7 

GRID 

8 

0 

3.0000  0. 

0000 

6.0000 

0 

456 

CTRIARG 

5 

0 

7 

3 

0.0000 

7 

CTRIARG 

6 

3 

4 

8 

0.0000 

7 

GRID 

9 

0 

4.0000  0. 

0000 

0.0000 

0 

456 

GRID 

10 

0 

4.0001  0. 

0000 

1.0000 

0 

456 

GRID 

11 

0 

4.0000  0. 

00  00 

2.0000 

0 

456 

CTRIARG 

7 

10 

9 

5 

0.0000 

7 
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CTRIARG 

6 

5 

6 

10 

0.0000 

7 

CTRIARG 

9 

6 

11 

10 

0.0000 

7 

GRID 

12 

0 

4.0000 

0.00  00 

3.0000 

0 

456 

GRID 

13 

0 

4.00  00 

0.00  00 

4.0000 

0 

456 

CTRIARG 

10 

12 

11 

6 

0.0000 

7 

CTRIARG 

11 

6 

7 

12 

0.0000 

7 

CTRIARG 

12 

7 

13 

1? 

0.0000 

7 

GRID 

14 

0 

4.00  00 

0.0000 

5.0000 

0 

456 

GRID 

15 

0 

4.0000 

0.0000 

6.0000 

0 

456 

CTRIARG 

13 

14 

13 

7 

0.0000 

7 

CTRIARG 

14 

7 

6 

14 

0.0000 

7 

CTRIARG 

15 

6 

15 

14 

a. 0000 

7 

GRID 

16 

0 

5.0000 

0.00  00 

0.0000 

0 

456 

GRID 

17 

0 

5.0000 

0.00  00 

.5000 

0 

456 

GRID 

16 

0 

5.OCO0 

0.0000 

1.0000 

0 

456 

CTRIARG 

16 

17 

16 

9 

0.0000 

7 

CTRIARG 

17 

9 

10 

17 

0.0000 

7 

CTRIARG 

16 

10 

18 

17 

0.0000 

7 

GRID 

19 

0 

5.0000 

0.00  00 

1.5000 

0 

456 

GRID 

20 

0 

5.0000 

O.OOOC 

2.0000 

0 

456 

CTRIARG 

19 

19 

18 

10 

0.0000 

7 

CTRIARG 

20 

10 

11 

19 

0.0000 

7 

CTRIARG 

21 

11 

20 

19 

0.0000 

7 

GRID 

21 

0 

5.0000 

0.0000 

2.5000 

0 

456 

GRID 

22 

0 

5.0000 

0.00  00 

3.0000 

0 

456 

CTRIARG 

22 

21 

20 

11 

0.0000 

7 

CTRIARG 

23 

11 

12 

21 

0.0000 

7 

CTRIARG 

24 

12 

22 

21 

0.0000 

7 

GRID 

23 

0 

5.0000 

0.0000 

3.5000 

0 

456 

GRID 

24 

0 

5.0000 

0.00  00 

4.0000 

0 

456 

CTRIARG 

25 

23 

22 

12 

0.0000 

7 

CTRIARG 

26 

12 

13 

23 

0.0000 

7 

CTRIARG 

27 

13 

24 

23 

0.0000 

7 

GRID 

25 

0 

5.0000 

0.0000 

4.5000 

0 

456 

GRID 

26 

0 

5.0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

26 

25 

24 

13 

0.0000 

7 

CTRIARG 

29 

13 

14 

25 

0.0000 

7 

CTRIARG 

30 

14 

26 

25 

0.0000 

7 

GRID 

27 

0 

5.0000 

0.0  000 

5. 5000 

0 

456 

GRID 

26 

0 

5.0000 

0.0000 

6.0000 

0 

456 

CTRIARG 

31 

27 

26 

14 

0.0000 

7 

CTRIARG 

32 

14 

15 

27 

0.0000 

7 

CTRIARG 

33 

15 

28 

27 

0.0000 

7 

GRID 

29 

0 

6.0000 

0.0000 

0.0000 

0 

456 

GRID 

30 

0 

6.0000 

0.0000 

.5000 

0 

456 

CTRIARG 

34 

30 

29 

16 

0.0000 

7 

CTRIARG 

35 

16 

17 

30 

0.0000 

7 

GRID 

31 

0 

6.0000 

0.0000 

1.0000 

0 

456 

CTRIARG 

36 

31 

30 

17 

0.0000 

7 

CTRIARG 

37 

17 

18 

31 

0.0000 

7 

GRID 

32 

0 

6.0000 

0.0000 

1.5000 

0 

456 

CTRIARG 

36 

32 

31 

18 

0.0000 

7 

CTRIARG 

39 

16 

19 

32 

0.0000 

7 

GRID 

33 

0 

6.0000 

0.0000 

2.0000 

0 

456 

CTRIARG 

40 

33 

32 

19 

0.0000 

7 

CTRIARG 

41 

19 

20 

33 

0.0000 

7 

GRID 

34 

0 

6.0000 

0.0000 

2.5000 

0 

456 

CTRIARG 

42 

34 

33 

20 

0.0000 

7 

CTRIARG 

43 

20 

21 

34 

0.0000 

7 

GRID 

35 

0 

6.0000 

0.00  00 

3.0000 

0 

456 

CTRIARG 

44 

35 

34 

21 

0.0000 

7 

CTRIARG 

45 

21 

22 

35 

0.0000 

7 

GRID 

36 

0 

6.0000 

0.0000 

3.5000 

0 

456 

CTRIARG 

46 

36 

35 

22 

0.0000 

7 
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CTRIARC 

<.7 

22 

23 

36 

0.0000 

7 

GRID 

37 

0 

6.0000 

0.0000 

4.0000 

0 

CTRIARG 

AS 

37 

36 

23 

0.0000 

7 

CTRIARG 

A9 

23 

24 

37 

0.0000 

7 

GRID 

3S 

0 

5.9999 

0.0000 

4.5000 

0 

456 

CTRIARG 

60 

36 

37 

24 

0.0000 

7 

1 

CTRIARG 

51 

24 

25 

36 

0.0000 

7 

GRID 

39 

0 

6.0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

52 

39 

38 

25 

0.0000 

7 

CTRIARG 

53 

25 

26 

39 

0.0000 

7 

GRID 

40 

0 

6.0000 

O.OOOC 

5.5000 

0 

456 

CTRIARG 

54 

40 

39 

26 

0.0000 

7 

CTRIARG 

55 

26 

27 

40 

0.0000 

7 

GRID 

41 

C 

6.000C 

0.0000 

6.0000 

0 

456 

CTRIARG 

56 

41 

40 

27 

0.0000 

7 

CTRIARG 

57 

27 

28 

41 

0.0000 

7 

GRID 

42 

0 

7.0000 

0.0000 

0.0000 

0 

456 

GRID 

43 

0 

7.00  00 

O.OOOC 

.5000 

0 

456 

CTRIARG 

56 

43 

42 

29 

0.0000 

T 

CTRIARG 

59 

29 

30 

43 

0.0000 

7 

GRID 

44 

0 

7.0000 

0.0000 

1.0000 

0 

456 

CTRIARG 

60 

44 

43 

30 

0.0000 

7 

CTRIARG 

61 

30 

31 

44 

0.0000 

7 

GRID 

45 

0 

7.0000 

0.0000 

1.5000 

0 

456 

CTRIARG 

62 

45 

44 

31 

0.0000 

7 

CTRIARG 

63 

31 

32 

45 

0.0000 

7 

GRID 

46 

0 

7.0000 

0.0000 

2.0000 

0 

456 

CTRIARG 

64 

46 

45 

32 

9.0000 

7 

CTRIARG 

65 

32 

33 

46 

0.0000 

7 

GRID 

47 

0 

7.0000 

0.0000 

2.5000 

0 

456 

CTRIARG 

66 

47 

46 

33 

0.0000 

7 

CTRIARG 

67 

33 

34 

47 

0.0000 

7 

GRID 

46 

0 

7.0000 

0.0000 

3.0000 

0 

456 

CTRIARG 

66 

48 

47 

34 

0.0000 

7 

CTRIARG 

69 

34 

35 

46 

9.0000 

7 

GRID 

49 

0 

7.0000 

O.OOOC 

3.5000 

9 

456  j 

CTRIARG 

70 

49 

46 

35 

0.0000 

7 

CTRIARG 

71 

35 

36 

49 

0.0000 

7 

GRID 

50 

0 

7.0000 

0.0000 

4.0000 

0 

456 

CTRIARG 

72 

50 

49 

36 

0.0000 

7 

CTRIARG 

73 

36 

37 

50 

0.0000 

7 

GRID 

51 

0 

7.00  00 

0.0000 

4.5000 

0 

456 

CTRIARG 

74 

51 

50 

37 

O.OOOC 

7 

CTRIARG 

75 

37 

38 

51 

0.0000 

7 

GRID 

52 

0 

7.0000 

O.OOOC 

5.0000 

0 

456 

CTRIARG 

76 

52 

51 

38 

0.0000 

7 

CTRIARG 

77 

38 

39 

52 

0.0000 

7 

GRID 

53 

0 

7.0000 

0.0000 

5.5000 

0 

456 

CTRIARG 

70 

53 

52 

39 

0.0000 

7 

CTRIARG 

79 

39 

40 

53 

0.0000 

7 

GRID 

54 

0 

7.0000 

0.0000 

6.0000 

0 

456 

CTRIARG 

60 

54 

53 

40 

0.0000 

7 

CTRIARG 

61 

<f0 

41 

54 

0.0000 

7 

GRID 

55 

0 

6.0000 

O.OOOC 

0.0000 

0 

45b 

GRID 

56 

0 

6.0000 

0.0000 

1.0000 

0 

456 

CTRIARG 

62 

42 

43 

55 

0.0000 

7 

CTRIARG 

83 

43 

56 

55 

0.0000 

7 

CTRIARG 

64 

43 

44 

56 

0.0000 

7 

GRID 

57 

0 

8.0000 

0.0000 

2.0000 

0 

456 

CTRIARG 

65 

44 

45 

56 

0.0000 

7 

CTRIARG 

66 

45 

57 

56 

0.0000 

7 

CTRIARG 

87 

45 

46 

57 

0.0000 

7 

GRID 

58 

0 

8.0000 

C.OOOO 

3.0000 

0 

456 

CTRIARG 

86 

46 

47 

57 

0.0000 

7 
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CTRIARG 

89 

47 

58 

57 

0.0000 

7 

CTRIARG 

90 

47 

48 

58 

0.0000 

7 

GRID 

59 

0 

8.0000 

0.0000 

4.0000 

0 

455 

CTRIARG 

91 

48 

49 

58 

0.0000 

7 

CTRIARG 

92 

49 

59 

56 

0.0000 

7 

CTRIARG 

93 

49 

50 

59 

O.OOOG 

7 

GRID 

60 

0 

8.0000 

0.0000 

5.0000 

0 

456 

CTRIARG 

9<t 

50 

51 

59 

0.0000 

7 

CTRIARG 

95 

51 

60 

59 

0.0000 

7 

CTRIARG 

96 

51 

52 

60 

0.0000 

7 

GR 10 

61 

0 

8.0000 

0.0000 

6.0000 

0 

456 

CTRIARG 

97 

52 

53 

60 

0.0000 

7 

CTRIARG 

98 

53 

61 

60 

0.0000 

7 

CTRIARG 

99 

53 

54 

61 

0.0000 

7 

GRID 

62 

0 

9. 0000 

0.0000 

0.0000 

0 

455 

GRID 

63 

0 

9.0000 

0.0000 

1.0000 

0 

456 

CTRIARG 

100 

63 

62 

55 

0.0000 

7 

CTRIARG 

101 

55 

56 

63 

0.0000 

7 

GRID 

6^ 

0 

9.0000 

O.OOOC 

2.0000 

0 

456 

CTRIARG 

102 

64 

63 

56 

0.0000 

7 

CTRIARG 

103 

56 

57 

64 

0.0000 

7 

GRID 

65 

0 

9.0000 

0.0000 

3.0000 

0 

456 

CTRIARG 

104 

65 

64 

57 

0.0000 

7 

CTRIARG 

105 

57 

58 

65 

0.0000 

7 

GRID 

66 

0 

9.0000 

0.00  00 

4.0000 

0 

+ 56 

CTRIARG 

106 

66 

65 

58 

0.0000 

7 

CTRIARG 

107 

56 

59 

66 

0.0000 

7 

GRID 

67 

0 

9.0000 

0.0000 

5.0000 

0 

455 

CTRIARG 

108 

67 

66 

59 

0.0000 

7 

CTRIARG 

109 

59 

60 

67 

0.0000 

7 

GRID 

66 

0 

9. 0000 

0.00  00 

6.0000 

0 

456 

CTRIARG 

110 

68 

67 

60 

0.0000 

7 

CTRIARG 

111 

60 

61 

68 

0.0000 

7 
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PROBLEM  B-VII 
MPC  GENERATOR 

The  following  problem  demonstrates  the  JIG  MPC  generator.  This 
feature  generates  the  required  NASTRAN  MPC  cards  used  to  connect 
the  solid  wedge  elements  to  plate  elements.  In  an  actual  missile, 
the  joint  can  be  represented  by  the  solid  wedge  elements  and  the 
shell  by  plate  elements.  Therefore  the  wedge  elements  can  have  shell 
elements  either  forward  or  aft  of  the  joint  or  on  both  sides  of  the 
joint.  Figure  B-44  shows  the  planned  finite  element  model  and  con- 
figuration of  a missile  joint.  Only  one  half  of  the  joint  was  modeled. 
Similar  type  of  model  preparation  would  be  required  if  one  were  to 
model  both  halves  of  the  joint. 

A complete  listing  of  the  data  input  is  shown  in  Figure  B-45. 
Figure  B-46  shows  the  grid  point  and  element  identification  numbers 
as  generated  by  JIG.  Figures  B-47  and  B-48  give  two  views  of  the 
NASTRAN  structural  plots  of  the  finite  element  model  and  are  followed 
by  a listing  of  the  JIG  punched  output. 
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**♦  SAMPLE 

7 - JOINT 

WITH 

MPC 

«»* 

2 

1 

1 

3 

10 

0 

1 

1 

3 

1 

-1.0 

0.0 

1 

1 

100 

1 

0.0 

3 

90.0 

O 

• 

o 

90.0 

1 

4 

A 

1 

3 

1 

3 

0 

1 

0 

1 

3 456 

0 

A 

4.5 

2. 

25 

1 

1 

5.0 

4.0 

1 

3 

1 

4.0 

4.0 

3 

3 

4.0 

3.0 

1 

1 

3 

5.0 

3.0 

4 

1 

3 

1 

5 

1 

0 

0 

1 

3 456 

1 

1 

5 

1 

5 

2 

5 

3 

1 

5 

0 

1 

1 

2.0 

4.0 

1 

5 

1 

u.u 

4.0 

5 

3 

0.0 

3.0 

1 

1 

3 

2.0 

3.0 

1 

5 

2 

0.0 

3.5 

1000 

1 

2456 

2456 

456 

246 

246 

FIG.  3^  DATA  INPUT  PROBLEM  B-VII  MPC  GENERATOR 
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FIG.  B^7  NASTRAN  STRUCTURAL  PLOT  SHOWING  CROSS  SECTIONS  OF  JOINT. 
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LISTING  OF  PUNCHED  NASTRAN  BULK  DATA  CARDS 
PROBLEM  B-VII  MPC  GENERATOR 


JUNCTION  INPUT  GENERATOR  PROGRAM  (JIGI 


•••  SAMPLE  7 - JOINT  WITH  HPC  ••• 


NST  s 2 

NGS  = 1 

NES  = 1 

NPOP  = 3 

MIO  = 10 

NGP  = 0 

lOELT  = 1 

NSECT  = 1 

NT(  1»  = 

NT(  21  * 

NOT  = 1 

ICLOSE  = 

OELGP  = 100 

KKI  II  = 

KK(  21  * 


BETA!  1)  = 
BETA!  21  * 
JBI  1)  = 


3 OELTZC  II  X 

1 OELTZI  21  = 

1 

1 THETAf  II  X 

3 THETA!  21  = 

0.0000 

90.0000 

1 JE»  II  X 


-1.0000 

0.0000 


0.0000 

90.0000 


4 


B-117 


NSWC/WOL  TR  77-85 


T 


I 

J 

X(I.J) 

COOECI.JI 

1 

1 

5.000 00 

41.00000 

1 

2 

1 

41.50000 

4». 00000 

1 

3 

1 

i». 00000 

4>. 00000 

1 

1 

2 

5.00000 

3.50000 

1 

2 

2 

50003 

3.50003 

0 

3 

2 

4>. 00000 

3.50000 

1 

1 

3 

5.00000 

3.00000 

1 

2 

3 

%.50000 

3.00000 

1 

3 

3 

4>. 00000 

3.00000 

1 

1 

k 

i».5  00  00 

2.25000 

1 

GRID 

1 

1 

6.0000 

0.0000 

5.0800 

1 

656 

GRID 

2 

1 

6.0000 

65.0000 

5.0000 

1 

656 

GRID 

3 

1 

6.0000 

90.0000 

5.0000 

1 

656 

GRID 

h 

1 

6.0000 

0.0000 

6.5000 

1 

656 

GRID 

5 

1 

6.0000 

65.0000 

6.5000 

1 

656 

GRID 

6 

1 

6.0000 

90.0000 

6.5000 

1 

656 

GRID 

7 

1 

6.0000 

0.8000 

6.0000 

1 

6*!C, 

GRID 

8 

1 

6.0000 

65.0000 

6.0000 

1 

656 

GRID 

9 

1 

6.0000 

90.0000 

6.0000 

1 

656 

GRID 

10 

1 

3.50  00 

0.0000 

5.0000 

1 

656 

GRID 

11 

1 

3.5000 

65.0000 

5.0000 

1 

656 

GRID 

12 

1 

3.5000 

90.0000 

5.0000 

1 

656 

GRID 

13 

1 

3.5000 

0.8000 

6.5000 

1 

656 

GRID 

14» 

1 

3.5000 

65.0000 

6.5000 

1 

656 

GRID 

15 

1 

3.5000 

90.0000 

6.5000 

1 

656 

CME06E 

1 

10 

13 

10 

1 

16 

11 

2 

CME06E 

101 

10 

16 

11 

2 

15 

12 

3 

CNEOGE 

2 

10 

1 

6 

13 

2 

5 

16 

CMEOGE 

102 

10 

2 

5 

16 

3 

6 

15 

GRID 

16 

1 

3. 5000 

0.0000 

6.0000 

1 

656 

GRID 

17 

1 

3.5000 

65.0000 

6.0000 

1 

656 

GRID 

18 

1 

3.5000 

90.0000 

6.0000 

1 

656 

CMEOGE 

3 

10 

16 

13 

6 

17 

16 

5 

CMEOGE 

103 

10 

17 

16 

5 

18 

15 

6 

CMEOGE 

4» 

10 

6 

7 

16 

5 

8 

17 

CMEOGE 

104i 

10 

5 

6 

17 

6 

9 

18 

GRID 

19 

1 

3.0000 

0.0000 

5.0000 

1 

656 

GRIO 

20 

1 

3.0000 

65.0000 

5.0000 

1 

656 

GRID 

21 

1 

3.0000 

90.0000 

5.0000 

1 

656 

GRIO 

22 

1 

3.0000 

0.0000 

6.5000 

1 

656 

GRIO 

23 

1 

3.0000 

65.0000 

6.5000 

1 

656 

GRIO 

2<i 

1 

3.0000 

90.0000 

6.5000 

1 

656 

CMEOGE 

5 

10 

22 

19 

10 

23 

20 

11 

CMEOGE 

105 

10 

23 

20 

11 

26 

21 

12 

CMEOGE 

6 

10 

10 

13 

22 

11 

16 

23 

CMEOGE 

106 

10 

11 

16 

23 

12 

15 

26 

GRIO 

25 

1 

3.0000 

0.0000 

6.0000 

1 

656 

GRIO 

26 

1 

3.0000 

65.00  00 

6.0000 

1 

656 

GRID 

27 

1 

3.0000 

90.0000 

6.0000 

1 

656 

CMEOGE 

7 

10 

25 

22 

13 

26 

23 

16 

CMEOGE 

107 

10 

26 

23 

16 

27 

26 

15 

CMEOGE 

8 

10 

13 

16 

25 

16 

17 

26 

CMEOGE 

108 

10 

16 

17 

26 

15 

18 

27 

GRIO 

28 

1 

2.2500 

0.0000 

6.5000 

1 

656 

GRIO 

29 

1 

2.2500 

65.0000 

6.5000 

1 

656 

GRID 

30 

1 

2.2500 

90.0000 

6.5000 

1 

656 

CMEOGE 

9 

10 

22 

28 

19 

23 

29 

28 

CMEOGE 

109 

10 

23 

29 

20 

26 

30 

21 
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CWEOGE 

10 

10 

25 

20 

22 

26 

29 

23 

CMEOGE 

110 

10 

26 

29 

23 

27 

30 

Zh 

I 

J 

Zd.JI 

X(I,JI 

CODEd 

.Ji 

1 

1 

4.00000 

4.00000  1 

2 

1 

3.50000 

4.00000  1 

3 

1 

3.00000 

4.00000  1 

1 

2 

4.00000 

3.50000  1 

2 

2 

3.50003 

3.50003  0 

3 

2 

3.00000 

3.50000  1 

1 

3 

4.00000 

3.00000  1 

2 

3 

3.50000 

3.00000  1 

3 

3 

3.00000 

3.00000  1 

1 

4 

3.500  00 

2.25000  1 

GRID 

31 

1 

4.0000 

0.0000 

3.5000 

1 

456 

GRID 

32 

1 

4. 0000 

45.0000 

3.5000 

1 

456 

GRID 

33 

1 

4.0000 

90.0000 

3.5000 

1 

456 

GRID 

34 

1 

4.0000 

0.0000 

3.0000 

1 

456 

GRID 

35 

1 

4.0000 

45.0000 

3.0000 

1 

456 

GRID 

36 

1 

4.0000 

90.0000 

3.0000 

1 

456 

GRID 

37 

1 

3.5000 

0.0000 

3.5000 

1 

456 

GRID 

38 

1 

3.5000 

45.0000 

3.5000 

1 

456 

GRID 

39 

1 

3.5000 

90.0000 

3.5000 

1 

456 

CM EDGE 

11 

10 

37 

16 

7 

38 

17 

8 

CMEOGE 

111 

10 

38 

17 

8 

39 

18 

9 

CHEDGE 

12 

10 

7 

31 

37 

8 

32 

38 

CMEOGE 

112 

10 

8 

32 

38 

9 

33 

39 

GRID 

40 

1 

3.5000 

0.0000 

3.0000 

1 

456 

GRID 

41 

1 

3.50  00 

45.0000 

3.0000 

1 

456 

GRID 

42 

1 

3.5000 

90.0000 

3.0000 

1 

456 

CMEOGE 

13 

10 

40 

37 

31 

41 

38 

32 

CMEOGE 

113 

10 

41 

38 

32 

42 

39 

33 

CMEOGE 

14 

10 

31 

34 

40 

32 

35 

41 

CMEOGE 

114 

10 

32 

35 

41 

33 

36 

42 

GRIO 

43 

1 

3.00  00 

0.0000 

3.5000 

1 

456 

GRID 

44 

1 

3.0000 

45.0000 

3.5000 

1 

456 

GRIO 

45 

1 

3.0000 

90.0000 

3.5000 

1 

456 

CMEOGE 

15 

10 

43 

25 

16 

44 

26 

17 

CMEOGE 

115 

10 

44 

26 

17 

45 

27 

18 

CMEOGE 

16 

10 

16 

37 

43 

17 

38 

44 

CMEOGE 

116 

10 

17 

38 

44 

18 

39 

45 

GRID 

46 

1 

3.0000 

0.0000 

3.0000 

1 

456 

GRIO 

47 

1 

3.0000 

45.0000 

3.0000 

1 

456 

GRID 

48 

1 

3.0000 

90.0000 

3.0000 

1 

456 

CMEOGE 

17 

10 

46 

43 

37 

47 

44 

38 

CMEO GE 

117 

10 

47 

44 

38 

48 

45 

39 

CMEOGE 

18 

10 

37 

40 

46 

38 

41 

47 

CMEOGE 

118 

10 

38 

41 

47 

39 

42 

48 

GRIO 

49 

1 

2.2500 

0.0000 

3.5000 

1 

456 

GRIO 

50 

1 

2.2500 

45.0000 

3.5000 

1 

456 

GRIO 

51 

1 

2.2500 

90.0000 

3.5000 

1 

456 

CMEOGE 

19 

10 

43 

49 

25 

44 

50 

26 

CMEOGE 

119 

10 

44 

50 

26 

45 

51 

27 

CMEOGE 

20 

10 

46 

49 

43 

47 

50 

44 

CMEOGE 

120 

10 

47 

50 

44 

48 

51 

45 

I 

J 

Zd.JI 

xd.Jt 

COOEd.Jt 

1 

1 

3.00000 

4.  :oooo 

1 
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2 

1 

2.S0000 

4.00000  1 

3 

1 

2.00000 

4.00000  1 

1 

2 

3.00000 

3.50000  1 

2 

2 

2.S0003 

3.50003  0 

3 

2 

2.00000 

3.50000  1 

1 

3 

3.00000 

3.00000  1 

2 

3 

2.S0000 

3.00000  1 

3 

3 

2.00000 

3.00000  1 

1 

k 

2.50000 

2.25000  1 

GRID 

52 

1 

4.0000 

0.0000 

2.5000 

1 

GRID 

53 

1 

4.0000 

45.0000 

2.5000 

1 

GRID 

54 

1 

4.0000 

90.0000 

2.5000 

1 

GRID 

55 

1 

4.0000 

0.0000 

2.0000 

1 

GRID 

56 

1 

4.0000 

45.0000 

2.0000 

1 

GRID 

57 

1 

4.0000 

90.0000 

2.0000 

1 

GRID 

50 

1 

3.50  00 

0.0000 

2.5000 

1 

GRID 

59 

1 

3.5000 

45.0000 

2.5000 

1 

GRID 

60 

1 

3.50  00 

90.0000 

2.5000 

1 

CMEOGE 

21 

10 

50 

40 

34 

59 

CMEOGE 

121 

10 

59 

41 

35 

60 

CMEOGE 

22 

10 

34 

52 

56 

35 

CMEOGE 

122 

10 

35 

53 

59 

36 

GRIO 

61 

1 

3.5000 

0.0000 

2.0000 

1 

GRID 

62 

1 

3.5000 

45.0000 

2.0000 

1 

GRIO 

63 

1 

3.5000 

90.0000 

2.000G 

1 

CMEOGE 

23 

10 

61 

56 

52 

62 

CMEOGE 

123 

10 

62 

59 

53 

63 

CMEOGE 

24 

10 

52 

55 

61 

53 

CMEOGE 

124 

10 

53 

56 

6? 

54 

GRIO 

64 

1 

3.00  00 

0.0000 

2.5000 

1 

GRIO 

65 

1 

3.0000 

45.0000 

2.5000 

1 

GRIO 

66 

1 

3.0000 

90.0000 

2.5000 

1 

CMEOGE 

25 

10 

64 

46 

40 

65 

CMEOGE 

125 

10 

65 

47 

41 

66 

CMEOGE 

26 

10 

40 

58 

64 

41 

CMEOGE 

126 

10 

41 

59 

65 

42 

GRIO 

67 

1 

3.0000 

0.0000 

2.0000 

1 

GRIO 

68 

1 

3.0000 

45.0000 

2.0000 

1 

GRIO 

69 

1 

3.0000 

90.0000 

2.0000 

1 

CMEOGE 

27 

10 

67 

64 

56 

66 

CMEOGE 

127 

10 

60 

65 

59 

69 

CMEOGE 

20 

10 

50 

61 

67 

59 

CMEOGE 

120 

10 

59 

62 

66 

60 

GRIO 

70 

1 

2.2500 

0.0000 

2.5000 

1 

GRID 

71 

1 

2.2500 

45.0000 

2.5000 

1 

GRIO 

72 

1 

2.2500 

90.0000 

2.5000 

1 

CMEOGE 

29 

10 

64 

70 

46 

65 

CMEOGE 

129 

10 

65 

71 

47 

66 

CMEOGE 

30 

10 

67 

70 

64 

66 

CMEOGE 

130 

10 

60 

71 

65 

69 

I 

J 

Z(I«J> 

Xd.JI 

COOEfl.JI 

1 

1 

2.00000 

4.00000 

1 

2 

1 

1.50000 

4.00000 

1 

3 

1 

1.00000 

4.00000 

1 

4 

1 

.50000 

4.00000 

1 

5 

1 

0.00000 

4.00000 

1 

1 

2 

2.00000 

3.50000 

1 

2 

2 

1.50001 

3.50001 

0 

3 

2 

1.00001 

3.50001 

0 

4 

2 

.50001 

3.50003 

0 
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5 

2 

0. 

00000 

3.50000  2 

1 

3 

2. 

00000 

3.00000  1 

2 

3 

1. 

50000 

3.00000  1 

3 

3 

1. 

00000 

3.00000  1 

<• 

3 

• 

50000 

3.00900  1 

5 

3 

0. 

00000 

3.00000  1 

GRID 

73 

1 

4.0000 

0.0000 

1.5000 

1 

456 

GRID 

7k 

1 

4.0000 

45.0000 

1.5000 

1 

456 

GRID 

75 

A 

4.0000 

90.0000 

1.5000 

1 

456 

GRID 

76 

1 

4.0000 

0.0000 

1.0000 

1 

456 

GRID 

77 

1 

4.0000 

45.0000 

1.0000 

1 

456 

GR 10 

76 

1 

4.0000 

90.0000 

1.0000 

1 

456 

GRID 

79 

1 

4.0000 

0.0000 

.5000 

1 

456 

GRIO 

60 

1 

4.0000 

46.00  00 

.5000 

1 

456 

GRID 

81 

1 

4.0000 

90.0000 

.5000 

1 

456 

GR  10 

62 

1 

4.000 

0.000 

0.000 

1 

2456 

GRIO 

63 

1 

4.000 

45.000 

0.000 

1 

456 

GRIO 

64 

1 

4.000 

90.000 

0.000 

1 

2456 

GRIO 

86 

1 

3.5000 

0.0000 

1.5000 

1 

456 

GRIO 

66 

1 

3.5000 

45.0000 

1.5000 

1 

456 

GRIO 

87 

1 

3.50  00 

90.0000 

1.5000 

1 

456 

cueoGE 

31 

10 

85 

61 

55 

86 

62 

56 

CWEOGE 

131 

10 

86 

62 

56 

87 

63 

57 

CHEOGE 

32 

10 

55 

73 

85 

56 

74 

86 

CWEOGE 

132 

10 

56 

74 

86 

57 

75 

87 

GRIO 

86 

1 

3.50  00 

0.0000 

1.0000 

1 

456 

GRIO 

89 

1 

3.5000 

45.0000 

1.0000 

1 

456 

GRIO 

90 

1 

3.5000 

90.0000 

1.0000 

1 

456 

CWEOGE 

33 

10 

88 

85 

73 

89 

86 

74 

CWEOGE 

133 

10 

89 

86 

74 

90 

87 

75 

CWEOGE 

34 

10 

73 

76 

88 

74 

77 

89 

CWEOGE 

134 

10 

74 

77 

89 

75 

78 

90 

GRIO 

91 

1 

3.5000 

0.0000 

.5000 

1 

456 

GRIO 

92 

1 

3.5000 

45.0000 

.5000 

1 

456 

GRIO 

93 

1 

3.5000 

90.0000 

.5000 

1 

456 

CWEOGE 

35 

10 

91 

88 

76 

92 

89 

77 

CWEOGE 

135 

10 

92 

89 

77 

93 

90 

76 

CWEOGE 

36 

10 

76 

79 

91 

77 

80 

92 

CWEOGE 

136 

10 

77 

80 

92 

78 

81 

93 

GRIO 

1000 

1 

3.500 

0.  000 

0.000 

1 

246 

GRIO 

1001 

1 

3.500 

45.000 

0.000 

1 

GRIO 

1002 

1 

3.500 

90. 000 

0.000 

1 

246 

CWEO GE 

37 

10 

1000 

91 

79 

1001 

92 

60 

CWEOGE 

137 

10 

1001 

92 

80 

1002 

93 

81 

CWEOGE 

36 

10 

79 

62 

1000 

80 

83 

1001 

CWEOGE 

138 

10 

80 

83 

1001 

81 

04 

10  02 

GRIO 

94 

1 

3.0000 

0.0000 

1.5000 

1 

456 

GR  10 

95 

1 

3.0000 

45.0000 

1.5000 

1 

456 

GRIO 

96 

1 

3.0000 

90.0000 

1.5000 

1 

456 

CWEOGE 

39 

10 

94 

67 

61 

95 

68 

62 

CWEO GE 

139 

10 

95 

68 

62 

96 

69 

63 

CWEOGE 

40 

10 

61 

85 

94 

62 

86 

95 

CWEOGE 

140 

10 

62 

36 

95 

63 

87 

9b 

GRIO 

97 

1 

3.0000 

0.0000 

1.0000 

1 

456 

GRIO 

98 

1 

3.0000 

45.0000 

1.0000 

1 

456 

GR  10 

99 

1 

3.0000 

90.0000 

1.0000 

1 

4 56 

CWEOGE 

41 

10 

97 

94 

85 

98 

95 

86 

CWEOGE 

141 

10 

98 

95 

66 

99 

96 

87 

CWEOGE 

42 

10 

85 

88 

97 

86 

89 

98 

CWEOGE 

142 

10 

66 

89 

96 

87 

90 

99 

GR  10 

100 

1 

3.0000 

0.0000 

.5000 

1 

456  — 

GRIO 

101 

1 

3.0000 

45.0000 

.5000 

1 

•*56 

GRIO 

102 

1 

3.0000 

90.0000 

.5000 

1 

456 

CWEOGE 

43 

10 

100 

97 

88 

101 

98 

89 
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PROBLEM  B-VIII 
CURVED  BOUNDARY 

This  problem  illustrates  the  use  of  the  curved  boundary  ortion. 
Figure  B-49  shows  the  planned  finite  element  model  and  configuration 
of  a missile  nozzle.  The  outer  surface  of  the  nozzle  has  a constant 
radius  of  6.5  inches.  The  inner  surface  is  represented  by  two  third 
ordered  curves.  (see  Figure  B-49) 

A complete  listing  of  the  data  input  is  shown  in  Figure  B-50. 
Figure  B-51  shows  the  grid  point  and  element  identification  numbers 
as  generated  by  JIG.  Figure  B-52  gives  the  NASTRAN  structural  plot 
of  the  finite  element  model  and  is  followed  by  a listing  of  the  JIG 
punched  output. 
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FIG.  B-49  PLANNED  FINITE  ELEMENT  MODEL  AND  CONFIGURATION  OF  A MISSILE  NOZZLE. 
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***  SAMPLE  8 - CURVED  BOUNDARY  *•*» 
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